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ORDENADORES SOBRESALIENTES A PRECIOS QUE HACEN ESCUELA 


M \ H|^ Premie el esfuerzo 

" m de sus hijos por fin 

|% J| ^¡¡|8r de curso. 

~ P^"\ Regáleles ios mejores ordenadores 

A - persona/es a precios de auténtica 

V M oportunidad. 

M Investrónica, además, /es frace ofro gran regalo: 

W joysticks, interfaces, cursos de Basic en video, 

lápides ópticos... 

Spectrum Plus, Spectrum 128 y QL, tres ordenadores muy 
estudiados, a precios que son una lección magistral. 
Dé un ejemplo. Haga un doble regalo fin de curso con Investrónica. 


Y además, precios muy especiales para lotes de Inter face i Microonves e impresoras 
Infórmese en su concesionario Investrónica más cercano. 


SPECTRUM PLUS, SPECTRUM 128 Y QL 


Regale un Spectrum Plus, 
que incluye un lote de 6 cintas 
de juegos. Su distribuidor In¬ 
vestrónica le regala, además: 

Un joystick más un Inter- 
tace II, 

o un Curso de Basic en vídeo, 
o un lápiz óptico 


Regale un Spectrum 128, 
que incluye dos cintas de 
juegos, un manual de utiliza¬ 
ción y una cinta de demostra¬ 
ción. 

Su distribuidor investrónica 
le regala, además: 

Un joystick más un Inter- 
tace II, 

o un Curso de Basic en vídeo. 


Regale un ordenador QL 
desde 44,550 ptas. o, si lo 
prefiere, una configuración de 
ordenador y monitor desde 
65 300* ptas 

Infórmese de nuestras 
grandes ofertas de QL con 
monitores monocromo y de 
color con media y alta resolu¬ 
ción e impresora 
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6 TURBOPROTECTOR 

Si quieres aumentar la velocidad 
de carga y al mismo tiempo 
proteger tus programas de miradas 
indiscretas, en este artículo te 
contamos cómo hacerlo. 


SONIDO POR DOS 
CANALES 


A partir de ahora podremos 
disfrutar de música a dos voces con 
un virtuosismo comparable al de 
cualquier otro ordenador y olvidar 
todas las críticas sobre el sonido de 
nuestro querido Spectrum. 



Gráficos interactivos en tres 
dimensiones 

Ricardo García, nuestro experto en 
gráficos, comenta las técnicas 
básicas de los gráficos 
tridimensionales y nos propone un 
interesante ejemplo. 


APRENDIENDO 
LENGUAJE 
MAQUINA _ 

En nuestro recorrido por el sistema 
operativo encontramos la zona de 
información para canales y 
analizamos el tratamiento de los 
dispositivos de entrada y salida. 


GUIA DEL HACKER: 
CYBERUN 

Después de destripar el juego, 
conseguimos recoger todos los 
cristales de cyberníta y escapar del 
campo de fuerza que nos atrapaba 
sin perder ninguna vida. 


PROGRAMAS 

Aunque muchos de vosotros ya 
estaréis de vacaciones, la sección 
de programas de este número está 
dedicada a las matemáticas, 
concretamente a las progresiones. 
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Para hacer su pedido, rellene esté cupón HOY MISMO 
Y envíelo a; 

Bravo Murillo, 377 
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Ruego me envíen los siguientes ejemplares atrasados de TODOS- 
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Gráficos profesionales/Desplaza- 
miento pixel a pixeí/Utitización de ru- 
tinas/Construeción del interface 
centronics/Programas de utilidad 
para microdrive/Rutina reset en códi¬ 
go máquina/Análisis del editor de 
textos Taaword/lnterfaces para im- 
presoras/Programas 

Núm 3 * 300 ptas. 

Novedades sonimag’BA/Ampliando 
el Basic/Programas para ordenar 
programas/Gráficos con e! VU-3D/ 
Lenguaje Forth/Archivos en mícro- 
drive/Programación de un interface 
de impresora/Programas 

Núm. 4 - 300 ptas. 
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para el Spectrum/Comparación có¬ 
digo máquina-Basic/Anáiisis progra¬ 
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Programas 

Núm. 5 - 30Q ptas. 

Floppys para Spectrum/Diseño asis¬ 
tido por ordenador/64 Caracteres 
por línea/Juego de la vida/Pascal/Asi 
hacemos las portad a s/Control de 
evaluaciones/Pr og ramas. 

Núm. 6 - 300 ptas. 

Representación de funciones/Todos 
los caminos conducen a la ROM/Jue- 
gos/Pascal/Construcciún de un lápiz 
Óptico/Programas de gestión. El SITI/ 
Logo: torgugas para todos/ Interrup¬ 
ciones del Z-80/Programas. 
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Spectrum/Programas. 
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informática con Spectrum/Análisis: 
Comercial 4/Pascal/Periféricos: Wa- 
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de PSION. Música con QL/Desplaza- 
miento Pixel a Pixel, aportación de 
lectores/Programas/Programer II. 

Núm. 10 - 300 ptas. 

Discos Fnvesdísc 200/Juegos/Dos 
programas simultáneos/Protección 
del software/Conozca extremadura, 
consulte a su ordenador/Desensam- 
Piador Z-80/Sofware educativo/QL 
Magazine: novedades Informa*, Hoja 
de cálculo, Ajedrez/Construya su 
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de 720 K/Un n uevo ope rati vo/Progra- 
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SPECTRUM PLUS 


En septiembre, coincidiendo con el Personal Com¬ 
puter World Show, asistiremos a la presentación de 
nuevos productos Sinclair. Amstrad lanzará el Spec- 
trum Plus II, parecido al actual, pero con un cassette in¬ 
corporado y con 128 Kbytes de memoria RAM. 

El nuevo modelo de la gama Sinclair se montará en 
la planta de Timex en Dundee, y no en Corea del Sur co¬ 
mo las restantes máquinas Amstrad. Timex también 
construirá una impresora matricial dedicada al Spec- 
trum Plus II, probablemente basada en la que acompa¬ 
ña a los ordenadores PCW 8256 y PCW 8512. 

De las otras dos máquinas que Sir Clive tenía en 
proyecto, el Pandora y el SuperSpectrum de nombre 
clave Loki, apenas se sabe nada por el momento, ni si¬ 
quiera si los derechos de fabricación y comercialización 
corresponderían a Amstrad. 

Por otra parte, comienzan a conocerse nuevos as¬ 
pectos del acuerdo Amstrad Sinclair. Los derechos ad¬ 
quiridos por Alan Sugar no son para todo el mundo, co¬ 
mo se afirmó en principio, puesto que en Portugal y en 
los países del Este le corresponden a Timex. Esta em¬ 
presa suministrará al gobierno de Polonia 800.000 orde¬ 
nadores Timex 2068 (Spectrums con port de joystick, 
chip de sonido y algunas otras mejoras) y 200.000 dobles 
unidades de disco FDD 3000 con el sistema operativo 
CP/M. 

En cuanto al QL, que según Sugar habría muerto, es¬ 
tá más de actualidad que nunca. Dos empresas, Eider- 
soft y Farmintel, están trabajando en un SuperQL basa¬ 
do en el Motorola 68000. La máquina de Farmintel, lla¬ 
mada QLT, ha sido desarrollada por Tony Tebby, autor 
del QDOS. Ambos ordenadores serán plenamente 
compatibles con el QL, aunque le superarán en veloci¬ 
dad, memoria y otras prestaciones. 

En los próximos números esperamos poder infor¬ 
maros más detalladamente de todos estos proyectos. 

TODOSPECTRUM 










Ha llovido mucho desde que los primeros programas TURBO aparecieron en el 
mercado. Aquellos cargadores volvían locos a los piratas más hábiles y 
permitieron vender un gran número de cintas a las compañías que aprovecharon 
este nuevo sistema de protección. Sin embargo son pocos los usuarios que 
saben utilizar esta técnica para la protección de sus programas o para acortar los 
tiempos de carga de los mismos. He aquí un programa que lo hará posible sin 
necesidad de tener extensos conocimientos de programación. Basta con 
cargarlo, ejecutarlo y seguir los pasos que nos indique. 























|7' ste programa es un híbrido BA- 
SlC-Código máquina que nos 
permitirá grabar una versión 
TURBO de cualquier programa que 
no utilice la parte superior de la me¬ 
moria (aprox. 1 Kbyte). El programa 
a salvar podrá estar compuesto de 
una pantalla de carga, un programa 
BASIC y un bloque en código má¬ 
quina o bytes, por lo que si usamos 
alguna matriz de datos deberemos 
unirla al BASIC antes de grabarlo, y 
también deberemos unir en un solo 
bloque todo el Código máquina que 


utilicemos. Antes de ejecutar el pro¬ 
grama deberemos, por lo tanto, te¬ 
ner preparados en una cinta cada 
uno de los bloques que vayamos a 
utilizar (si es posible, en el orden có¬ 
digo máquina-pantalla-BASlC). 

Quien disponga de ensamblador 
podrá teclear el código máquina en 
él como se explica más adelante, pe¬ 
ro el que lo prefiera puede dejara un 
lado el listado assembler y copiar 
simplemente el listado BASIC, que 
incluye un cargador hexadecimal. 

Una vez tecleado el programa de¬ 


be ser salvado a cinta o microdrive. 
Después puede ser ejecutado, con 
lo que comenzará a ser pokeado el 
código máquina de las líneas DATA 
mientras se comprueba, medíante 
las sumas de control, si hay algún 
error. Caso de haberlo, el programa 
indica en qué línea se ha producido 
para que pueda ser rectificado. 


Funcionamiento del programa 

Cuando el proceso de carga de las 




























































DATAs ha Finalizado, aparece en 
pantalla el mensaje “PROGRAMA 
BASIC?: (S/N}’\ al que hay que 
contestar si lo que pretendemos 
convertir en TURBO es (o in¬ 
cluye) un programa BASIC. Sólo en 
el caso de que contestemos afirmati¬ 
vamente (lo que, evidentemente, se 
hace pulsando “S”) nos pedirá la 
linea de autoejecución. Si quere¬ 
mos que, al terminar de cargarse, el 
programa ejecute a partir de una de¬ 
terminada línea (algo así como el 
SAVE con L1NE) habrá que especi¬ 
ficar aquí esa línea, y si no queremos 
autoejecución bastará con pulsar 
ENTÉR. 

Para un programa BASIC tam¬ 
bién nos pedirá “LINEA PARA ON 
ERROR”; esta es una medida de 


Realizado en BASIC y 
código máquina, el 
turboprotector permite 
grabar una versión turbo 
de cualquier programa. 


protección que hace que, si mien¬ 
tras se corre el programa BASIC se 
pulsa BREAR (o se produce cual¬ 
quier error) la ejecución pase a una 
línea determinada del programa, 
donde podría autodestruirse o sim¬ 
plemente imprimir “ÍYa cállate, pi¬ 
rata asqueroso!” y comenzar a eje¬ 
cutar desde el principio (si quere¬ 
mos abstenernos de usar esta op¬ 
ción bastará con pulsar ENTER). 
Sólo hay una forma de salir de un 
programa que utilice esta protec¬ 
ción, y es introduciendo “USR 8” (o 
algunos otros USRs) en un INPUT 
numérico; esto hace que se salte a la 
rutina de errores en busca del valor 
de USR, con lo que se acaba inde¬ 
fectiblemente en la rutina principal 
del editor. Esto puede evitarse su¬ 
primiendo a toda costa los INPUTs 
numéricos y utilizando alfanuméri- 
cos seguidos de un VAL que pase el 
valor a una variable numérica. 
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620 


PUSH 

HL 

20 


ORO 

64460 

830 


POP 

DE 

30 




840 


ADD 

HL, BC 

40 

BUFL10 

DEF$ 

288 

850 


LD 

ÍHLÍ,128 

50 

BUFCB 

EEFS 

17 

860 


INC 

HL 

ÓO 




870 


PUSH 

HL 

70 

TRBPRT 

LD 

A,2 

880 


LD 

(E_LIWE),HL 

80 


CALL 

CHN_OP 

885 


LD 

(CH_ADD1,HL 

90 


LD 

A,(BASIC> 

890 


LD 

HL, í BüFCB + 15 ) 

95 


OR 

A 

900 


ADD 

HL , BC 

i 00 


CALL 

NZ,LD_BSC 

910 


LD 

(VARSÍ,HL 

120 

TRBPRÜ 

CALL 

CLSL10 

920 


CALL 

SET_J1N 

i 30 


LD 

DE,#09Al 

930 


LE 

A, 255 

i4ü 


XOR 

A 

940 


SCF 


150 


CALL 

P0_NSü 

950 


CALL 

LD.BYT 

160 


CALL 

EP^TCL 

960 


JR 

NC,ERR_R 

170 


CALL 

LD_L10 

990 


POP 

HL 

180 


LD 

DE, 17 

990 


LE 

A,ÍFIN+1> 

190 


LD 

IX,CA£_CB 

1 UÜÜ 


C c 

H 

200 


XQF 

A 

101 0 


PfeT 

NC 

2 \ 0 


CALL 

SA^BYT 

1020 


LD 

(FIN),HL 

220 


JR 

NC * EPR _R 

i 030 


RE l 


230 


LD 

HL, [FINÍ 

1 040 




240 


LD 

DE, { BASE] 

1050 

LLSL i Ó 

LD 

EL *M0E21 

250 


OR 

A 

1 u60 


CALL 

CL_SET 

260 


SBC 

HL, DE 

107.0 


LD 

£, 32 

270 


PDSH 

DE 

1080 

CLLiOA 

LD 

A, 32 

280 


LD 

(LÜN6),HL 

1U9(> 


RST 

16 

290 


PUSH 

HL 

1 100 


DJN2 

CLLIOA 

300 


LD 

IX, CARG_,B 

1 I IV 


LD 

£L *W0E21 

■ 310 


LD 

DE ,ENE-CARG_B 

1120 


JP 

CL_SET 

320 


LD 

A. 255 

1130 




330 


CALL 

SA_BYT 

1 J 50 

3A_L.1U 

LD 

A* (PANT) 

340 


JR 

NC,ERR_R 

1 160 


OR 

A 

350 


POP 

DE 

i i 7u 


RET 

■? 

■360 


POP 

IX 

1180 


LE 

HL,18496 

370 


CALL 

TPBSA 

i 19U 


LD 

EE,BUFLiO 

380 


CALL 

CLSL10 

1200 


LE 

A*8 

390 

TRBPR1 

LD 

DE,MENSO 

1210 

S_ELL 

LD 

BC * 32 

400 


XQR 

A 

1220 


PUSH 

HL 

410 


CALL 

po_msg 

1 2éfU 


LE I 9 


420 


CALL 

EP_TCL 

1240 


POP 

HL 

430 


CALL 

LD_L10 

1250 


INC 

H 

440 


LD 

A, (1Y-50) 

i ¿60 


DEC 

A 

450 


CP 


12/0 


RfcT 

H 

4óO 


JR 

2 ,ERR_0 

1280 


JR 

NZ,S„£CL 
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CP 

"8“ 

I29u 


LD 

HL * 22843 

480 


JR 

Z,TRBPRÜ 

1300 


JR 

S^BCL 

490 


JR 

TRBPR1 

131 0 
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1 320 

LD_Ll0 

i L'ALL 

CLSLiq 
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ERR_0 

RST 

3 

1 330 


LD 

A* íPANT) 

504 


DEFB 
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1 34u 


OR 

A 
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RET 

Z 

54 0 

ERR_R 

RST 

e 
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LD 

HL* EUFL10 
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DEFB 

26 
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LE 

DE,18496 

SóO 
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LD 

A, 8 

570 

LD_BSC 

LD 

DE, 17 

1390 

L_BCL 

LD 

BC, 32 

580 


LD 

IX,BUFCB 

1 400 


PUSH 

1 DE 

59Q 


XÜR 

A 

1410 


LD! R 

600 


SCF 


1420 


POP 

DE 

610 


CALL 

LD^BYT 

1430 


INC 

E 

620 


JR 

NC,LD^BSC 

1440 


DEC 

A 

630 


LD 

A,(BUFCB) 

1450 


PET 

n 

640 


OR 

A 

14 60 


JR 

L_BCL 

650 


JR 

nz.ld^bsc 

¡4?0 


LD 

DE,22848 

660 


CALL 

CLSL10 

1430 


JR 

L_FCL 

670 


LD 

BC,W0F21 

1490 
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CALL 

Ct_SET 

1500 

TRB3A 

Dt 


690 


LD 

DE,#09CÜ 
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LD 

HL,250 

700 


XÜR 

A 

15 20 


LD 

A , 2 

710 


CALL 

PÜ_MSG 

1530 


LD 


720 


LD 

E * 10 

154 0 

M kDl 

DJNZ RTRD1 

730 


LE 

HL*BUFCB 

1550 


OUT 

i 2S4 ) .A 

740 

P_NÜMB 

JNC 

HL 

1560 


XÜR 

ftÜOOOlÜiÜ 

750 


LD 

A r ÍHLí 

1570 


LE 

B, 164 

760 


RST 

16 
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DEC 

L 

770 


DJNZ 

P_NÜMB 

1590 


JR 

NZ,RTRD1 

780 

LD_BS1 

LD 

EC,ÍPRQ6) 

1600 


DEC 

B 

790 


PUSH 

BC 

1610 


DEC 

H 

000 


POP 

rx 

1620 


JP 

P,RTRD1 

810 


LD 

HL, (BUFCB+11 ) 

1630 


LD 

B, 47 
















1640 

R1RD2 

DJNZ 

RTRD 2 

_B 




3260 


LD 

A, C 

1650 


DUT 

<2541.A 

2450 


ADD 

HL« DE 

3270 


XOR 

2 

1660 


LD 

A, 13 

2 4 60 


LD 

DE ,ENTCRI 

3280 


LD 

C, A 

1670 


L D 

B, 55 

7 Ü 


LD 

BC , END-EMTC.R1 

2290 


LD 

H, 0 

1600 

R1RÜ3 

DJHZ 

RTRD3 

2480 


LDIR 


33 UO 


LD 

E , 176 

1690 


DUT 

1254) f fl 

2490 


CALL 

NEWBSC 

3810 


JR 

TRBLD5 

1700 


LD 

C,S 

2500 


LD 

DE, ÍLONG) 

d 32 U 

TKBLB4 

LD 

(IX),L 

1710 


LD 

B, 35 

2510 


LD 

IX, (BASE > 

2330 


INC 

IX 

1720 


LD 

H, 0 

2520 


JP 

ENTCRI 

3340 


DEC 

DE 

1730 

TRBSAO 

LD 

ñ, D 

¿bdu 




3350 


LD 

B, 178 

1740 


OR 

E 

2540 

ENTCRI 

CALL 

TRBLB 

3 36U 

TRBLD5 

LD 

L, 1 

17^0 


JR 

2,TRBSA2 

2550 


LD 

A* (BASIC) 

3370 

FRBLD 6 

CALL 

LDEDG 2 

1760 


LD 

L,(IX) 

2560 


OR 

A 

33ÓÜ 


JP 

NC,ERROR 

1770 

TRBSA 1 

LD 

A, H 

2570 


CALL 

Z,NEWBSC 

3390 


LD 

A, 1 B9 

1700 


XÜR 

L 

2580 


OR 

A 

3400 


CP 

B 

1790 


LD 

H, A 

2590 


JR 

Z,£NTCR? 

3410 


RL 

L 

1800 


LD 

A,2 

2*00 


LD 

HL,{LIMEí 

3420 


LD 

B % 176 

i&lu 


SCF 


2610 


LD 

(NEWPPC),HL 

2430 


JR 

NC,TRBLD 6 

1820 


JR 

TRBSA5 

2620 


LD 

(IY+10Í,0 

2440 


LD 

A,H 

1&30 

TRBSA2 

LD 

L, H 

2630 

ENTCR2 

LD 

HL,ENTCRI -1 

345ü 


XOR 

L 

1840 


JR 

TR6SA1 

2640 


LD 

íRAMTOP),HL 

34&0 


LD 

H, A 

1850 

1RBSA3 

LD 

A, C 

2650 


DEC 

HL 

34 '0 


LD 

A, D 

1860 


BIT 

7 , B 

2660 


DEC 

HL 

3480 


OR 

E 

1870 

RTRE4 

BJNZ 

RTRD4 

2*70 


DEC 

HL 

3490 


IR 

NZ,TRBLD4 

1 80U 


JR 

NC,TRESA4 

2680 


LD 

Í£ER_SP),HL 

85ÜU 


LD 

A, H 

1890 


LD 

B, 42 

2690 


LD 

A, íON„ERLtL) 

3510 


UR 

A 

1900 

RFPD5 

DJNZ 

RTRD5 

2700 


RL A 


3520 


JR 

NZ,ERROR 

1910 

TRBSA4 

OUT 

(254)< A 

2710 


JR 

C,ENTCR3 

3528 




1920 


LD 

F, 38 

2720 


LD 

BC,ON_ERR 

3530 

BRDRFW 

LD 

A, íI Y ^i 4) 

1930 


JR 

NZ *TRB9A3 

2730 


LD 

íHL ) ,C 

3540 


RRA 


1 940 


DEC 

s 

2740 


INC 

HL 

355ü 


PFA 


1 95 U 


XOR 

A 

2750 


LD 

ÍHL) , B 

35oü 


RRA 


1 9&0 


ADD 

A, 2 

2760 

ENTCR 8 

CALL 

CLS 

3570 


OUT 

í 254),A 

1970 

TRBSA5 

RL 

L 

2770 


LD 

HL,(ENTCOD) 

3580 


El 


1980 


JR 

NZ,, RTRD4 

2780 


LD 

A, H 

35°0 


RET 


1990 


DEC 

DE 



OR 

L 

3600 




2000 


INC 

IX 

2 >Ú 0 


RET 

2 

3610 

ERROR 

CALL 

CLSL10 

2010 


LD 

1 ? * 25 

¿ 8 Í 0 


JP 

ÍHL) 

3620 


LD 

DE, 1*1524 

2020 


LD 

ft, #YF 

2 b ^0 




3630 


XOR 

A 

2030 


1N 

A, (254) 

¿ 8 dO 

NfcWBSC 

LD 

HL, tPROGí 

3640 


CALL 

PO_MSG 

2040 


RRA 


2840 


LD 

íHL),128 

3650 


CALL 

ÉR_TCL 

soso 


JR 

MC 4 ERR_L 

2850 


LD 

(VARS) , HL 

3660 


RST 

0 

2090 


LD 

A, D 

2860 


INC 

HL 

36?Ü 




203ñ 


ÍHC 

A 

2870 


LD 

'E_LINE),HL 

3630 

DNIEPR 

LD 

SF,(ERR^SP) 

arco 


JR 

NZ.TRESAO 

2860 


JP 

SE7 _MN 

3720 


CALL 

SET^hN 

2 U 0 


JP 

BRDRFN 

2890 




3730 


LD 

HL,(ON_£RL> 

2.130 




2900 

EP_TCL 

RES 

5 t íIY + lí 

3740 


LD 

<NEWPPC),HL 

2131 

CiRR„L 

RST 

8 

2910 


El 


3750 


LD 

ílY+ 10),0 

íi3S 


DEFE 

20 

?920 

E K_T C1 

BI T 

5,{IY+ 1 ) 

3760 


JR 

LIN_NW 

2133 




¿930 


JP 

Z,ER_TC 1 

3780 




2140 

MENEE 

DtFB 

128,23,8 

2940 


REI 


3790 

BASIC 

DEFB 

0 

2150 


DtFpl 

11 . OTRA COPIA? 

295o 




3800 

PANT 

DEFB 

0 

(SIN) ' 

i 



29*0 

r RBLD 

DI 


3SI0 

L I NE 

DEFU 

0 

2160 


DEFE 

1 60 

2970 


LD 

C, 38 

3S20 

BASE 

DEFW 

0 

2170 




2980 


CP 

A 

3830 

FIN 

DEFW 

0 

2 ¡SO 

CAB_CB 

DEFB 

0 

2V90 

TRBLDO 

IR 

NZ * ERROR 

3840 

ENTCOD 

DEFW 

0 

2200 


DEP b 

10 

3000 

íRBLDl 

CALL 

LDEDG 1 

3850 

ÜN_ERL 

DEFW 

0 

2210 


Dtp W 

ENLi-CAR3_B 

30 J 0 


JR 

NC, TRBLDO 

3060 

LONG 

DEFW 

0 

2220 


DEFU 

CP, END“CARGUE 

3 11 2 0 


LD 

L , Z 4 

3880 




2230 




3030 

RTftDL 1 

DJNZ 

RTRDL1 

3883 

SGLBSC 

DEFB 

13, 127,0,1 ,í 

2240 

CAPG_E 

TEFU 

Ü,SGLBSC-Í-1 

3040 


DEC 

L 

3005 

END 

EQU 

* 

2250 


DEFB 

249,i92, " , 19 

3050 


JR 

NZ-, RTRDL1 

3887 




o t 4&, 14 



3060 


CALL 

LDEDG2 

3889 




27*0 


DE FU 

0 f 23635 

3070 


JR 

NC,TRBLDO 

3890 

LDEDGl 

EQU 

**05E7 

2270 


DEFB 

0 , ' + ' ,48, 14 

3080 


LD 

H| 196 

3900 

LDEDO 2 

EGU 

#05E3 

22 $ü 


DE FU 

Ü É: 256 

3090 


LD 

L, 0 

3905 

CHW_DP 

E 0 U 

#1601 

2290 


DEFB 

O 4 , 190 , 4©, 1 

31 CIO 

1KBLD2 

LD 

S, 156 

3910 

LD_BYT 

EBU 

#0556 

A 




3110 


CALL 

LDEDG2 

3920 

SA„BYT 

EQU 

W04C2 

2310 


DEFW 

0,23636 

3120 


JR 

NC,TRBLDO 

3930 

PG_MSS 

eeu 

HOCOA 

7320 


DEFB 

0, '■ + lf , 48, 14 

8130 


LD 

A, 198 

3940 

SET_Í1N 

EQU 

H 16 B 0 

5330 


DfcFW 

0,43 

3i4u 


CP 

B 

3960 

CLS 

EQU 

#ÜD 6 B 

2340 


DEFB 

0,"? " 4 11 234 

di 50 


JR 

NC,TRBLDi 

3965 

CL„SET 

EQU 

#0DD9 

2350 




8 lo 0 


INC 

H 

39 70 

LIN_NW 

EQU 

#1B9E 

2360 

EMTCftG 

LD 

HL * 1 RAMTOP) 

3170 


JR 

NZ,TRÉLB2 

3980 




23/Ü 


LD 

DE,ENTCRI-1 

3 J 60 

i KBLD3 

LD 

B, 201 

8490 

PROS 

EQU 

23635 

2680 


LD 

BC,24 

d 1 90 


CALL 

LDEDGl 

4000 

E_LINE 

EQU 

23641 

2390 


LDDR 


2200 


JR 

NC,TRBLDO 

**010 

OARS 

EQU 

23627 

¿^00 


INC 

DE 

3210 


LD 

A, B 

4020 

NEWRPC 

EQU 

23618 

24 10 


EX 

DE, HL 

3220 


CF 

21 2 

4 030 

ERR_SP 

EQU 

23613 

2 d 2 U 


LD 

SP,HL 

d 2 dii 


JP 

NC p TRBLD3 

*u4Ú 

RANTOR 

EQU 

23730 

7460 


LD 

HL, IFROGí 

d24U 


CALL 

LDEDGl - 

4045 

CH_ADD 

EQU 

23645 

244Ü 


LD 

DE, ENTCRI-CARG 

3250 


JR 

MC,ERROR 






F 











Tanto si el programa incluye BA¬ 
SIC como si no, se nos pregunta 
después si utilizamos código máqui¬ 
na, y, en caso de que contestemos 
afirmativamente, se nos pide la di¬ 
rección de inicio, la longitud y la di¬ 
rección de ejecución. Esta última di¬ 
rección, deberá ser el punto de en¬ 
trada del código sí es que lo hay (en 
caso contrario, o si no queremos 


El turboprotector crea un 
pequeño programa 
BASIC que contiene el 
cargador turbo y los 
datos del siguiente 
bloque. 


que se ejecute bastará con ENTER), 
con lo cual se saltará a esa dirección 
al terminar el proceso de carga. En 
el caso de que el programa incluya 
también una parte en BASIC con 
autoejecución comenzará a ejecu¬ 
tarse el código, pero cuando aparez¬ 
ca el RET que devuelva el control se 
seguirá en la línea correspondiente 
del BASIC. 


El programa salvará toda la ver¬ 
sión TURBO como un bloque en el 
que se incluye pantalla, BASIC y có¬ 
digo máquina, por lo que es muy 
aconsejable que éste sea lo más 
compacto posible. Sí incluye panta¬ 
lla o BASIC, es importante que el 
código máquina ocupe la zona de 
memoria más baja posible; un sitio 
ideal para las rutinas cortas es el 
buffer de la impresora. 

Después de consultarnos sobre el 
código máquina se nos pregunta si 
vamos a utilizar pantalla de carga, y 
tras confirmar la exactitud de los da¬ 
tos introducidos anteriormente (si 
la negamos el proceso comienza 
desde la primera pregunta) empieza 
la fase en la que se carga cada blo¬ 
que. 


Carga y grabación 

Una vez que hayamos confirma¬ 
do los datos introducidos, el progra¬ 
ma nos indicará cuándo está prepa¬ 
rado para cargar cada uno de los blo¬ 
ques que hayamos escogido. Co¬ 
menzará con el código máquina (si 
lo hubiera), seguido de la pantalla 



10 REM TURBOPROTECTOR (C)LGP 

20 POKE 23658,8 

30 CLEAR 64459: GO SUB 500 

40 

50 LET ENTC=0: LET FIN=0: LET 
0NERR=32768: LET BASE=65535: LET 
LINE-10000 

60 PRINT "PROGRAMA BASIC?: 

70 GO SUB 310: LET B=A 
80 IF NOT B THEN GO TO 110 
90 LET BASE=23568: PRINT " L 
INEA DE AUTOEJECUCION: 

<ENTER SI NINGUNA) INPUT 

LINE Ai: Gü SUB 340 
100 IF AiO"" THEN LET LINERVA 
L Aí: PRINT " LINEA PARA ""ON 
ERROR""? (ENTER SI NI 

NGUNA) INPUT LINE Ai: GO S 

UB 340: IF AJO" 11 THEN LET ONER 


R=OAL Ai 

110 PRINT "CODIGO MAQUINA?: 

120 GO SUB 310: LET C=A 
130 IF NOT C THEN GO TQ 170 
140 PRINT " DIREC. DE INICIO? 
s >";: INF'UT ORGC: LET AÍ=STRÍ 
ORGC: GO SUB 340: IF ORGCOASE 
THEN LET BASE=ORGC 
150 PRINT ;“ LONGITUD?: 

>";: INPUT LNGC: LET AÍ=STR 
i LNGC: GO SUB 340: LET FIN=ORGC 
h-LNGC 

160 PRINT " DIREC. DE EJECUCI 

ON?:. (ENTER PARA NO EJEC.)> 

INPUT LINE Ai: GÜ SUB 340: 
IF Ai< >"" THEN LET ENTC^VAL Ai 
170 PRINT "PANT. DE CARGA?: "? 
180 Gü SUB 310: LET P«A: IF A T 
HEN LET BASE=16384: IF FINC2329 
6 THEN LET FIN=23296 


















190 PRINT "QUE NOMBRE LE PONGO? 
>"; s DIM B*(l,10)« INPUT LINE 
Bí <1) : LET A*=B* (Di GO 3UB 340: 

POR N=1 TQ 10: PQKE 65182+N,C0D 
E B* (1,N>: NEXT N 
200 IF NOT B+C+P THEN RUN 
210 PRINT '"DATOS CORRECTOS?:"; 

: GO SUB 310: CLS i IF NOT A THE 
N RUN 

220 POKE 65521,FN L(BASE): POKE 
65522,FN H(BASE): POKE 65523,FN 
L(FIN): POKE 65524,FN H(FIN) 

230 POKE 65517,B: POKE 65519,FN 
L(LINE): POKE 65520,FN H(LINE> 
240 POKE 65525,FN L(ENTC): POKE 
65526,FN H(ENTOs POKE 65518,P¡ 
POKE 65527,FN L(ÜNERR): POKE 65 
528,FN H(QNERR) 

250 IF NOT C THEN GO TO 270 
260 DEEP’ .2,20; PRINT AT 10,0; 


FLASH 1;" PREPARADO PARA CARGAR 
CODIGO M." ; LOAD ""CODE ORGC,LNG 
C: CLS 

270 IF P THEN BEEP .2,20: PRIiM 
T FLASH 1;AT 10,0;" PREPARADO P 
ARA CARGAR PANTALLA LOAD 11 "SC 
REEN4- : RANDOMIZE USR 64990 

280 IF B THEN BEEP .2,20: FRIN 
T AT 10,0; FLASH 1;" PREP. PARA 
CARGAR PROGR. BASIC “ 

290 RANDOMIZE USR 64765 

300 

310 PRINT " (S/N) >"; 

320 LET AÍ=INKEYÍ: IF A$="" 

N GO TO 320 

330 IF At<> M S J ‘ AND AÍO"N' 

GO TO 320 

340 PRINT A$: LET A~At-"S' 

P .1,10: RETURN 


THE 

THEN 

BEE 


350 


(ti 










360 DEF FN HÍN)=INT (N/256) 

370 DEF FN L (N ) =N~FN H(N>*256 
400 

500 RESTORE : LET D=64765 
510 F’RINT TAB 10; FLASH 1;" POK 
EANDÜ " 

520 FOR N=SOO TD 990 STEP 10 
530 READ Aí-, A: LET C=0 
540 FOR M=1 Tü LEN Ai-1 STEP 2 
550 LET 0=1 6* (CODE Ai <M>-48-7*< 
AÍ(M> >*'9“ ) Í+CÜDE Ai (M+ 1) -40—7* (A 
i( N+1 ) > "9"> 

560 POKE D , V: LET C=C+Ví LET D= 
D+l 

570 NEXT M 

580 IF COA THEN PRINT '"ERROR 
EN LINEA 11 ;N: BEEP .5,20: STOP 
590 PRINT ÁT 2,9;"LINEA ";N;" O 
K" 

600 NEXT N 

610 BEEP .5,20: CLS 


620 RETURN 

630 

BOO DATA "3E02CD01163AEDFFB7C46 
AFDCDCBFD11A109AFCDOA0CCD4DFFCDF 
CFD11110QDD219EFEAFCDC204",5355 
£310 DATA "30422AF3FFED5BF1FFB7E 
D52D522F9FFE5DD21AFFE1151013EFFC 
DC2043025D1DDE1CD1DFECDCB",609B 
820 DATA "FD1188FEAFCD0A0CCD4DF 
FCDFCFDF D7ECEFE4E2806FE5328A518E 
6CFFFCF1Al11100DD21ECFCAF37CD56" 
, 6060 

830 DATA "0530F23AECFCB720ECCDC 
BFD01210FCDD90D11C009AFCD0A0C060 
A21ECFC237ED710FBED4B535C",4724 
840 DATA "05DDE12AF7FCE5D109368 
023E522595C225D502AFBFC09224B5CC 
DBO163EFF37CD560530A7E13A",4835 
850 DATA "F4FFBCD022F3FFC901210 
ECDD90D06203E20D710FB01210EC3D90 
D3AEEFFB7C821404811CCFB3E",4835 














de carga (sí la hubera) y por ultimo, 
ya desde la parte en máquina, nos 
pedirá el programa BASIC {también 
si lo hubiera). Habrá que conectar 
convenientemente el cassette, y 
pulsar PEA Y al comienzo de cada 
una de las partes. 

En el caso de que se produzca al¬ 
gún error durante el proceso de car¬ 
ga. vale con pulsar CONTINUE y 
buscar de nuevo el bloque donde se 
produjo el error, a excepción de si 
ocurre durante la carga del BASIC, 
en cuyo caso habrá que hacer un 
RANDOMIZE USR 64765 en lugar 
del CONTINUE. Es posible, sin em¬ 
bargo, que en ese caso el mensaje de 
error que aparece en la parte baja es¬ 
tropee la pantalla de carga (sí la hu¬ 
biera), en cuyo caso habría que co¬ 
menzar de nuevo cargando y ejecu¬ 
tando "TURROPROTECTOR”. De 
lo que no hay que temer que estro¬ 
pee la pantalla de carga es del men¬ 
saje “PREPARADO PARA CAR¬ 
GAR PROG. BASIC” o “Pro- 
gramya que esa línea de panta¬ 
lla es salvada a memoria antes de 
que aparezcan, y devuelta do ésta 
antes de hacer la grabación. 

Una vez cargadas todas las partes 
del programa aparecerá el conocido 


El incremento de 
velocidad puede dar 
problemas si se utiliza 
en la carga un casssette 
diferente al que se 
utilizó en la grabación. 

mensaje "Start tape, liten press any 
key" (precisamente en la línea que 
tenemos «reservada»), indicando 
que se haya dispuesto para grabar la 
versión TU RBO del programa. De¬ 
beremos, pues, poner el cassette en 
condiciones de grabar y colocar la 
cinta donde queramos tener la ver¬ 
sión definitiva. Tras pulsar PLAY, 
REC y una tecla cualquiera, comen¬ 
zará la grabación. Una vez realizada 
se nos ofrece la oportunidad de rea¬ 
lizar nuevas copias; en caso de re- 
suesta negativa por nuestra parte, se 
regresa al BASIC. 

Programa en ensamblador 

Para los aficionados al lenguaje 
máquina se ofrece también el lista¬ 


do en ensamblador de la parte co¬ 
rrespondiente del programa. Quien 
lo desee, podrá ensamblar este trozo 
por su cuenta y ahorrarse teclear, en 
el programa principal, desde la línea 
500 hasta el final. En su lugar debe 
incluir una linea como la siguiente: 
500 LOAD "”CODF: RETURN, y 
salvar en cinta el código objeto tras 
el programa BASIC (este último 
con autoejeeucion en la linea 20). 

Para quien le guste saber cómo 
funcionan las cosas se incluye ade¬ 
más unos breves comentarios del 
cometido de cada subrutina. Como 
visión general cabe decir que lo que 
hace este programa es crear un pe¬ 
queño programa BASIC que in¬ 
cluye el cargador TURBO (en códi¬ 
go máquina) y los datos del bloque 
que le sigue. Este programa se au- 
1 oejecuta, y ello no puede ser evita¬ 
do mediante MERGE al incluir una 
linea falsa con numeración superior 
a la «legal» que bloquea al sistema. 
Este cargador es salvado en la cinta 
con la rutina estándar de la ROM, 
seguido del bloque que abarca todas 
las partes de nuestro programa, gra¬ 
bado a velocidad rápida. 

El TURBO es muy rápido, pur lo 
que puede dar algún problema de 


860 DATA 11 08012000E5EDBGE1243DF 
820F421405918EFCDQBFD3AEEFFB7C82 
ICCFB11404B3E08012000D5ED",4767 
870 DATA "B0D1143DF820F41140591 
8 E F F 321F AO 03 E02471OF E D3FEE EO AOó A 
42D20F50525F224FE062F10FE",4456 
880 DATA 11 D3FE3EÜD063710FED3FE0 
E08062326007AB3280BDD6E007CAD673 
EQ23718186C1BF579CB781OFE",3778 
890 DATA "30040Ó2A10FED3FE06262 
OEF05AFCÓ02CB1520EA1BDD2306193E7 
FDBFE1F30077A3C20C5C3C1FF", 4136 
900 DATA **CF 1480170B204F5452412 
O434F50 49413F2028532F 4 E 29 A00000O 
0000000000000000051O10000",1750 
910 DATA ”51O100004901F9CQ2BBE3 
OOE0000535C002B3GOEOOOOOOO1002AB 
E3O0E000O545CÜ02B3O0E000O",1745 
920 DATA "2B0000293AEA2AB2SC110 
4FF01í 80ÜEDB813EBF92A535C1156001 
91105FF01FB00EDB0CD3EFFED",3959 


930 DATA "5BF9FFDD2AF1FFC305FFC 
D59FF3AEDFFB7CC3EFFB7280A2AEFFF2 
2425CFD360A002104FF22B25C",5486 
940 DATA "2B2B2B223D5C3AF8FF173 
80601D9FF712370CD6B0D2AF5FF7CB5C 
8E92A535C3680224B5C232259",4058 
950 DATA 11 5CC3B016FDCB0Í AEFBFDC 
B016E2BFAC9F30E26BF206CCDE70530F 
92E1810FE2D20FBCDE30530ED”, 5179 
960 DATA "26C42E00069CCDE30530E 
23EC6B830DF2420F106C9CDE70530D37 
8FED430F4CDE705303779EE02”,4867 
970 DATA "4F260006B01808DD7500D 
D231B06B22E01CDE305301E3EBDB8CB1 
5Ü6B030F27CAD677AB320E17C 11 ,3911 
980 DATA "B72QOAFD7EOE1F1F1FD3F 
EFBC9CDCBFD112415AFCD0A0CCD4DFFC 
7ED7B3D5CCDB0162AF7FF2242",5061 
990 DATA /! 5CFD360A0ÜC39E1BOOOOO 
00000O 00O O00O0000000000OD7F0001" 
, 930 









carga cuando se utiliza para ello un 
cassette distinto al que se usó para 
grabarlo; esto puede ser soluciona¬ 
do alineando correctamente la ca¬ 
beza reproductora. 


Subrutinas 

TRBPRT: Es el bucle principal, 
desde el que se llama a las demás su¬ 
brutinas. 

LD„_BSC: Carga el programa BA¬ 
SIC, actualiza las correspondientes 
variables del sistema e imprime el 
nombre de! programa en la línea 10 
(la que está almacenada en memo¬ 
ria). 

CLSL10: Borra la línea 10. En rea¬ 
lidad imprime 32 espacios en dicha 
línea. 

SA_L10: Copia, si es necesario, 
el contenido de la línea 10 (parte de 
la pantalla de presentación) a partir 
de BUFL10, incluidos los atributos. 

LD_LIO: Lo contrario que la an¬ 

terior; recupera de memoria la línea 

10 . 

TRBSA: Junto con TRBLD es la 
más importante, ya que es la encar¬ 
gada de hacer la grabación TURBO 
de la zona de memoria que se le es¬ 
pecifique. Funciona de forma simi¬ 
lar a la rutina SA BYTES de la 


El turboprotector incluye 
una protección del tipo 
“ON ERROR”, que en 
caso de que se intente 
detener el programa 
devuelve el control a una 
línea determinada. 


ROM, es decir, a la entrada el par de 
registros DE debe contener la longi¬ 
tud del bloque a salvar, y el par IX la 
dirección de la base del bloque; 
cuando es llamada comienza la gra¬ 
bación sin imprimir ningún mensaje, 
saje. 

CAB_CB: Es la cabecera del car¬ 

gador BASIC, Incluye el nombre 
que le dimos, que fue pokeado des¬ 
de el BASIC a esta dirección. 

CARG_B: Es el cargador en sí. 
Incluye una línea cero, donde se 
ejecuta el código máquina relativo a 
PROG y a la que sigue una línea 
REM con el cargador TURBO y las 
variables; tras todo esto hay una 
línea 32525 que evita el MERGE. 

ENTCRG: Aquí comienza a eje¬ 
cutarse e! código máquina cuando 
se autoejecuta el cargador BASIC. 
Cambia de sitio el stack de 


ENTCR1-1 (si no ha fallado nada, 
esto es en la dirección 65284), y, des¬ 
pués de copiar todo lo que le sigue a 
la parte alta de la memoria, salta allí. 

ENTCR1: Llama a TRBLD y ac¬ 
tualiza las variables del sistema; 
después salta a la dirección de ejecu¬ 
ción que tenga marcada o vuelve al 
BASIC (donde autoejecutará si le 
corresponde). 

NEWBSC: Borra el programa BA¬ 
SIC. Lo que hace es poner PROG, 
VARS y E_LINE a sus mínimos va¬ 
lores. 

EP—TCL: Espera a que se pulse 
una tecla. 

TRBLD: Se encarga de cargar el 
bloque en TURBO de forma similar 
a TRBSA. Caso de que se detecte al¬ 
gún error de carga se salta a 
ERROR. 

ERROR: Imprime “Tape Loading 
error” e inicializa el ordenador en 
cuanto se pulsa una tecla. 

ON_ERR: Es la subrutina a la 
que se salta cuando se produce un 
error del BASIC (siempre que se 
hubiera seleccionado esta opción en 
su momento). Pone el número de 
linea y sentencia correspondientes y 
salta a L1N_NW (en la ROM) para 
que la ejecución de BASIC pase a 
esa línea. 

Luis Gala 
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Oe nuevo deberemos conducir 
un Lasertrón a lo largo de 
muchos tramos de una furutista 
autopista (valga lo rimbombante) 
que nos conducirá al cuartel 
general de Alien, el enemigo de 
!a Galaxia. Sólo si maniobramos 
con mucha habilidad et Vortrón 
único de que disponemos, y 
logramos esquivar o destruir a 
los múltiples alienígenas que se 
cruzarán en nuestro camino, 
podremos dar por finalizada esta 
misión tan dificultosa como 
esencial para el mantenimiento 
de la paz en la Galaxia. 

Si te ha sonado muy a chino 
todo el párrafo anterior a éste, 
será sin duda por que nunca 
pasó por tus manos un juego 
fán famoso como fue no hace 


mucho el Highway Encounter. 

En esta segunda y (según reza 
la publicidad del juego) definitiva 
parte de la odisea las cosas han 
cambiado un tanto respecto a su 
predecesora. Como se ha 
señalado, en esta ocasión es un 
único Vortrón, el que debe 
empujar al Lasertrón hacia la 
base enemiga, y los tramos de 


autopista que hay que cruzar 
para llegar allí no están siempre 
en el mismo orden, por lo que 
no vale aquí eso de aprenderse 
de memorieta pantalla a 
pantalla para finalizar. 

Aunque las rutinas de 
movimiento usadas son las 
mismas que en Encounter, se ha 
sacado aún más partido al 
original estilo gráfico creado en 
esa ocasión, tanto en los 
personajes, objetos y paisajes 
de la aventura como en las 
pantallas de presentación, etc. 

Lo mismo hay que decir de la 
mayoría de esos detalles que 
hacen a un juego atractivo a 
primera vista y agradable de 
manejar, 

En definitiva, se trata de una 
honorable segunda parte que 
será bienvenida por los 
Highwaymaníacos de nuestro 
país (de todo hay en la viña del 
Señor). Desearíamos que a partir 
de ahora tos señores de Vortex 
hagan un esfuerzo para no 
atascarse aqui y volver a 
dedicarse a la creación de 
nuevos tipos de juegos que 
rompan moldes como lo hizo 
Highway Encounter en su día. 









































pues con ello se fuerza al paso 
de un día y la prueba se 
desarrolla durante un número 
determinado de estos, 
transcurridos los cuales nada 
podrá hacerse para triunfar. 

Eí estilo gráfico usado, sin ser 
malo, no es demasiado 
elogiable, tanto por ei diseño en 
si mismo como por la poca 
calidad de las secuencias de 
animación. Aún asi la rutina 
utilizada para el movimiento de 


los sprites es buena, con 
movimiento de un pixel por 
interrupciones, lo que le da un 
aspecto de conjunto bastante 
pasable. En general, puede 
hablarse de un programa no 
excesivamente volcado en los 
detalles, que cumple sin resaltar 
en nada, y más preocupado en 
lo estratégico de la aventura que 
en hacer que las partes más 
duras sean entretenidas y 
llevaderas para el jugador. 


RIDDLER’S 

DEN 

PRQEINSA_ 
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Del otro lado del Atlántico nos 
llega este juego, uno de tantos 
entre la oleada de arcade- 
aventuras que desde hace algún 
tiempo invade el mercado 
Spectrum. Sin buscar la 
sofisticación de los últimos 
grandes éxitos de esta clase, 
Riddler’s Den destaca (si 
destaca en algo) por lo 
complicado de sus enigmas, que 
nos hace perder una vez tras 
otra la única vida que 
disfrutamos en cada partida. De 
hecho, es poca la acción que 
alcanza aún en sus momentos 
más álgidos, consistiendo todo 
el juego en un simple ir y venir 
en busca de objetos y un 
volverse tarumba averiguando 
las utilidades de los mismos. 

El protagonista (nada menos 
que el hombre elefante) debe 
andarse la laberíntica Cueva de 
los Enigmas en busca de ciertos 
tesoros, especialmente del 
Colmillo Dorado. Habrá para ello 
de superar muchas pruebas y 
tratar de conocer los objetos 
que pueden resultarle de alguna 
utilidad en su aventura. 

Para recuperarse del 
agotamiento que le producirá el 
acoso de ciertos enemigos, en 
especial los ogros y los duendes 
(otros acabarán con él 
fulminantemente), el protagonista 
puede optar por echar una 
cabezada. Para ello necesitará el 
objeto adecuado, evidentemente 
una almohada, difícil de 
reconocer por lo mal que ha 
sido dibujada. No es nada 
aconsejable el abusar de esto, 
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EJ objetivo que debemos 
perseguir en este juego es 
ayudar al pequeño Pud-Pud a 
escapar del loco mundo donde 
ha entrado en una pesadilla y 
del que no sabe cómo salir. Para 
encontrar la salida secreta del 
satánico laberinto debe comerse 
uno por uno todos los puddings 
{diez en total) que se encuentran 
diseminados por los más 
recónditos rincones del mapa. 

Pero esto no es fácil, sobre todo 
si tenemos en cuenta que la 
energía de las tres vidas de que 
dispone se gasta con cierta 
rapidez, sobre todo cuando 
entra en contacto con 
determinados enemigos. 

Debemos tener en cuenta 
también que Pud-Pud, a pesar 
de su extraña predilección por 
fos puddings de todo tipo (por la 
que sus familiares y amigos le 
toman por loco), procede de una 
famosa estirpe de Pud-Pud 
Insectívoros, por lo que es en 
este tipo de seres donde 
encontrará las energías que 
palien el desgaste de tanta 
aventura. 

Pud-Pud es una criatura muy 
sensible, y en sus pesadillas 
suelen manifestarse sus 
paranoias en forma de la Sra. 
Pud-Pud, irrefrenable ser que 
constantemente suspira de amor 
por nuestro héroe. Deberemos 
tener culdadoja Sra. Pud-Pud 
es muy absorvente y acabará 
con la poca energía con que 
suele contar su ídolo. 

El nivel técnico del juego es 
decente aunque sin aportar 


nada innovador. La rutina de 
impresión resulta algo molesta 
por los parpadeos en ciertas 
zonas de la pantalla, pero por lo 
demás los personajes se 
mueven con relativa rapidez y 
«resultan». Los gráficos son 
bastante buenos, con un estilo 
que se ve más resaltado en 
presentación o en algunas 
parles del laberinto que en los 


propios sprltes, a los que 
además les afea mucho el 
comentado parpadeo. 

Es, pues, un juego que puede 
resultar entretenido y 
ciertamente adictivo, aunque 
acaba cansando por su 
sencillez, que debería ser 
contrarestrada por algún 
planteamiento que lo hiciera 
más atractivo. 
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Ciertas ciudades del Reino 
Unido se ven amenazadas por 
una importante banda de 
delincuentes especializados en 
el tráfico de drogas y armas; 
toda una mafia que no se 
detiene ante nada y tienen 
aterrorizados ya a los barrios 
bajos de la «City». Como agentes 
del orden, deberemos acabar 
con todo esto antes de que sea 
demasiado tarde. Dispondremos 
para ello de un potente Lotus 
que deberemos pasear por 
calles y avenidas esperando que 
un mensaje de la central nos 
indique la presencia de algún 
coche de esa organización por 
las cercanías. 

Al comenzar el juego se nos 
permite elegir entre varios el 
escenario donde se desarrollará 
la aventura, y, tras esto, un 


surtido menú nos permite alterar 
el nivel de dificultad, redefinír 
teclas, ver las tablas de mejores 
puntuaciones y records de 
accidentes, salvar o cargar a/de 
cinta esas tablas, o comenzar el 
juego propiamente dicho. 

Cuando empezamos a jugar 
nos encontramos con una 
representación tridimensional de 
las calles de bastante calidad, 
que, aunque empañada por 
unos gráficos medianos, no deja 


de dar muy buena sensación de 
movimiento al vehículo. Al 
principio es bastante difícil 
controlar el coche; sobre todo 
en ios cruces, en los que es 
frecuente acabar empotrados en 
las esquinas o contra otro 
coche. En este sentido no 
resulta de mucha ayuda que el 
juego sea inglés, pues trae 
como resultado el que se circule 
por la izquierda para mayor 
despiste del personal. 

Cuando conseguimos 
acostumbrarnos a las 
reacciones de nuestro bólido, 
acaba resultando un juego muy 
atractivo, sobre todo por la 
cantidad de detalles que 
adornan las calles por donde se 
desarrolla la acción. Entre estos, 
hay que destacar la forma en 
que se mueven los abundantes 
coches que pueblan la ciudad, 
ya que lo hacen de forma 
bastante «inteligente», 
pudiéndose esperar de ellos 
reacciones totalmente lógicas. 
Otros detalles como los 
semáforos, etc., terminan de dar 
forma a un juego de los que 
pueden ser catalogados como 
buenos. 
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Sin embargo, el juego presenta 
grandes virtudes en otros 
campos, e incluso en el propio 
terreno gráfico, que puede 
elogiarse por la agradable línea 
seguida en la mayor parte del 
juego (que, desgraciadamente, 
se ve alterada algunos puntos). 


El movimiento de los sprites es 


Ivan Kosmovichski, conocido por 
sus allegados como «el 
Cruzado» debe cumplir con la 
importante misión de destruir la 
Joya de los Siete Planetas -la 
fuente de energía del malvado 
espíritu de Rasputín, que está 
amenazando con volver a la vida 
para destruir el cosmos. Armado 
con un escudo y una espada 
mágica, Ivan viajará a través de 
la oscuridad y el vacío de los 
terroríficos Siete Planetas donde 
habrá de luchar con los 
ciclopes, las cyberatas, las 
esferas de poder psiónico y 
algunas obras pérfidas criaturas. 

Con un estilo similar al que 
nos tiene acostumbrados 
Ultímate con su técnica 
Filmation, Rasputín se queda un 
poco por debajo en cuanto al 
nivel técnico de algunos 
detalles. Por ejemplo, el 
movimiento del protagonista es 
bastante peor que el de los 
mencionados «ultimates», y no 
ya por una inferior calidad de 
las rutinas empleadas, sino más 
bien por la secuencia de 
animación utilizada, que otorga 
al personaje el don del 
movimiento «ortopédico». 


suave pero no todo 4o rápido 
que sería deseable en lo 
concerniente al protagonista, 
que anda, más o menos, tan 
poco como el viejo Sabreman. 
Los efectos especiales y 
detalles de presentación no son 
abundantes ni especialmente 
buenos, ni siquiera en lo relativo 
al sonido, que no es el fuerte de 
este juego. 


Lo más resaltable, sin duda, 
es lo elevado que llega a ser su 
nivel de dificultad en algunas 
pantallas, en las que parece 
imposible imaginar siquiera ia 
forma de pasar ios interminables 
obstáculos que impiden el 
avance. Aconsejable para los 
grandes aventureros a los que 
no les gusta dejar sin batir aun 
juego de este tipo. 































Si hemos jugado alguna vez 
con otros ordenadores, nos 
habremos quedado 
sorprendidos al oír sonidos 
y música. Este es uno de los 
apartados más pobres del 
Spectrum. Sin embargo , a 
partir de ahora, también 
podremos disfrutar de 
música a dos voces. 


rr^ 


E l sonido en el Spectrum se ge¬ 
nera mediante el altavoz inter¬ 
no, controlado por la ULA. Pa¬ 
ra producir un sonido durante un 
programa en código máquina, se ha¬ 
ce uso de la instrucción OUT, en al¬ 
guna de sus formas. El port que se ha 
de utilizar es el 254 (11111110b). 

Como muchos lectores ya sabrán, 
al utilizar este port se accede tanto al 
altavoz como al color del borde. 
Ambos se controlan mediante el 
contenido del registro A en el mo¬ 
mento de ejecutarse la instrucción 
OUT. Por ello, se hace una división 
por bits: El color del borde se indica 
con los bits 0a 2 (los que valen 1,2y 
4), mientras que para el altavoz se 
utiliza el bit 4, cuyo valor es 16. El 
resto de los hits tienen asimismo un 
significado pero esto no nos intere¬ 
sa para el tema de este artículo. 






















Producción de sonido 

Ahora concentrémonos en el bit 
de sonido. Este sólo puede estar a 0 
o a 1, dos estados distintos, que 
coinciden con los dos posibles de 
una onda cuadrada, que es el único 
tipo de onda que se puede generar. 
El cero corresponde al estado alto y 
el uno al estado bajo. El sonido se 
produce al pasar de un estado a otro, 
ya sea de 0 a 1 o de 1 a 0. Con esto 
producimos un chasquido. Las dis¬ 
tintas notas musicales se producen 
mediante una serie de estos chas¬ 
quidos repetidos a intervalos de 
tiempo determinados. Cuanto me¬ 
nor sea este intervalo, mayor será el 
número de chasquidos producidos 
en un mismo tiempo y la frecuencia 
será mayor, o lo que es lo mismo, la 
nota será más aguda. Por tanto, para 
poder generar sonido puro, es nece¬ 
sario poder sincronizar el tiempo ai 
máximo. 


T-Estados 

Probablemente, la mayoría de los 
lectores habrán oído hablar poco o 
nada de los T-estados, pues es un te¬ 
ma que no se trata demasiado en li* 
bros, sobre todo en libros de inicia¬ 
ción. Por ello, definiremos breve¬ 
mente que es un T-estado, ya que es 










FIGURA 1. Listado en Ensamblador 
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un concepto imprescindible a la ho¬ 
ra de intentar producir sonidos. 

Un T-estado es la unidad de tiem¬ 
po del microprocesador. Todas las 
instrucciones del lenguaje máquina 
tardan un tiempo exacto en ser eje¬ 
cutadas. Este tiempo no se mide en 
segundos ni en minutos, sino en T- 
estados. Esta es una medida mucho 
más cómoda de usar, sobre todo por 
que un T-estado no .re corresponde 
con una duración concreta de tiempo. 
Entre los muchos componentes que 
tiene un ordenador hay uno muy 
importante y que se encuentra en 
todos ellos: el reloj, No es un reloj 


normal de los que dan la hora. Es 
simplemente un dispositivo que 
emite una señal a intervalos regula¬ 
res de tiempo. Su función es sincro¬ 
nizar el microprocesador con el res¬ 
to de los componentes para que 
vayan todos a la misma velocidad. 
Sin el reloj, las distintas parles del 
ordenador no se entenderían. De lo¬ 
do esto se deduce que la velocidad 
del microprocesador depende de la 
velocidad de un reloj. Es por esto 
que un T-estado no es una magni¬ 
tud absoluta de tiempo, si no que va¬ 
ría proporcionalmente con la veloci¬ 
dad del reloj. Por eso, para saber el 


tiempo absoluto que tarda una ins¬ 
trucción en ejecutarse es necesario 
conocer tanto su duración en T-es- 
lados como la velocidad del reloj. 
En el Spectrum el reloj funciona a 
3'5 Mhz, o 3500000 hz. Esto quiere 
decir que emite 3500000 pulsos en 
un segundo, por lo que en el Spee- 
trum hay 3500000 T-estados en un 
segundo. Mediante una simple divi¬ 
sión comprobamos que un T-estado 
durará entonces 1/3500000= 
0' , 00000085714 segundos. Ahora ya 
estamos en condiciones de saber 
exactamente cuánto tarda un pro¬ 
grama en ejecutarse, con sólo dispo- 



FIGURA 3 

. Programa para la composición musical 
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ner de una tabla con las duraciones 
de todas las instrucciones. 

Generando Música 


cada OUT con el mismo valor en el 
bit cuatro debe haber una pausa de 
1/26T67 segundos o 3500000/ 
261’63 T-estados. 

Como entre esos dos OUTS del 
mismo calor habrá otro con el valor 


LDA,7;BORDE BLANCO 
LD HL,523 ¡REPETICIONES 
LOOP.OUT (25 4).A 
XOR 16;CAMBIA ESTADO 
DEL ALTAVOZ 





contrario, la pausa entre cada OUT 
será justo la mitad de la anterior 
35OGOO0/523’26=6688’8354 T-esta- 
dos. 

Hay que tener en cuenta, sin em¬ 
bargo, que dentro de esa pausa hay 
que contar el tiempo que tarda en 
ejecutarse la propia instrucción 
OUT y algunas otras cosas. 

Por otra parte hemos dicho que 
durante un 
segundo. Si cada vez que se realice 
la pausa, se tardan 6689 T-estados 
para que al final dure un segundo 
habrá que repetirlo 3500000/6689= 
523’297 veces. Nos tendremos que 
conformar con repetirlo 523 veces. 
Con todos estos datos podemos co¬ 
menzar a realizar el programa. Lo 
haremos en dos etapas. Primero no 
tendremos en cuenta el tiempo que 
tarda, y después colocaremos la 
pausa necesaria. 


.¡INSTRUCCIONES 

DE PAUSA 
DEL HL 
LD DDA 
LD A,H 
ORL 
LDA,D 
JR NZ,LOOP 
RET 

La instrucción JR NZ,LOOP la to¬ 
maremos como de 12 T-estados. 
Ahora sumemos todos los T-esta- 
dos. Si lo hemos hecho bien dará 52. 
Esto quiere decir que de la pausa de 
d6689 T-estados ya hemos gastado 
52, y ahora deberemos añadir en los 
puntos suspensivos algo que tarde 
en ejecutarse exactamente 6689- 
52=6637 T-estados. 

LD BC,64513 
INC BC 

LOPA DJNZ LOPA 


Ya sabemos como se crea sonido 
mediante el cambio del bit 4 del re¬ 
gistro A en una instrucción OUT. 
Ahora vamos a ver un ejercicio prác¬ 
tico para generar una nota. Supon¬ 
gamos, por ejemplo, que queremos 
tocar el DO central durante un se¬ 
gundo. La frecuencia de la nota DO 
tal y como se ve en la figura 1 es de 
261 ’63 hz. Por tanto, debemos hacer 
cambios de 0 a 1 y de 1 a 0 261 ’63 ve¬ 
ces por segundo. Es decir, que entre 

















DEC C 
JRNZ.LOPA 

Esto tarda en ejecutarse exacta¬ 
mente 6634 T-estados. Puede ser un 
buen ejercicio para el lector hacer 
los cálculos necesarios para com¬ 
probarlo. 

Ahora el programa quedaría así: 
DI 

LD A,7 

LD HL,523 

LOOP OUT (254), A 

XOR16;CAMBIA ESTADO 

DEL ALTAVOZ 

LD BC,64513 

INC BC 

LOPA.DJNZ LOPA 

DEC C 

JRNZ,LOPA 

DEC HL 

LD D,A 

LD ,H 

ORL 

LDA,D 

JRNZXOOP 

El 

RET 


El altavoz interno y el 
color del borde son 
controlados por el 
acceso al port 254 
mediante la instrucción 
OUT y el contenido del 
acumulador. 


Observe que es necesario inhabi¬ 
litar las interrupciones, pues estas 
harían que no pudiéramos controlar 
exactamente el tiempo que tarda el 
programa en ejecutarse. 


Dos notas 

Hasta aquí hemos visto como se 
toca una nota, pero ahora surge la 
pregunta ¿cómo se puede simular 
que suenan dos notas a la vez? 


En un principio se puede pensar 
en alternar varias veces las dos no¬ 
tas, tocando cada una durante muy 
poco tiempo. Con esto se consigue 
el efecto deseado, pero suena como 
si el ordenador estuviera «haciendo 
gárgaras». Tras haber hecho varias 
pruebas con distintos métodos, 
creemos estar en lo cierto al afirmar 
que sólo hay un método para conse¬ 
guir dos notas simultáneas de una 
forma aceptable. En cierto modo es 
análogo al de la alternancia de no¬ 
tas, pero esta alternancia ha de ha¬ 
cerse a un nivel inferior, hay que 
mezclar las ondas de las dos notas. 
Es como si cogiéramos la gráfica de 
las ondas, la cortáramos en peque¬ 
ños pedacitos y creáramos una nue¬ 
va uniendo los fragmentos de las 
otras dos de forma alterna. Debe¬ 
mos distribuir el tiempo en dos mi¬ 
tades, una parte estará sonando una 
nota y la otra parte sonará la otra no¬ 
ta. 

Por ejemplo, si en un momento 
determinado la onda de una de las 
notas está baja y la de la otra alta, se 
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creará una «híbrida» que estará la 
mitad del liempo baja y la mitad alta. 

Para todo esto debemos cambiar 
un poco el esquema del programa 
de una sola nota. 

En primer lugar, al ser dos notas 
cada una con su distinta duración de 
pausa entre OUTS, no se puede ha¬ 
cer esta pausa como se hizo en el 
programa anterior. Habrá que hacer 
un bucle que str ejecute continua¬ 
mente pero en el que el XOR 16 no 
se ejecute nada más que cuando co¬ 
rresponda el cambio de estado a una 
determinada nota. Esto implica que 
debe haber bifurcaciones dentro del 
bucle, por lo que habremos de tener 
cuidado de que vaya por donde vaya 
la ejecución, siempre tarde el mis¬ 
mo tiempo en ejecutarse el bucle. 

Además como tenemos dos no¬ 
tas, necesitaremos dos valores dis¬ 
tintos para las pausas y otros dos pa- 
raf el estado de cada una de las on¬ 
das (alto o bajo). Para esto úllimo 
utilizaremos los registros A y A’. 
Además del valor de las pausas ne¬ 
cesitaremos un contador para cada 
pausa. Para estos cuatro valores 
(dos de pausa y dos de contador) uti- 
1 izaremos los registros DE y HL. 

Nos queda libre el registro BC pa¬ 
ra controlar la duración, que habrá 
de ser una misma para las dos notas. 
Una sola pasada elrededor del bucle 
es un tiempo demasiado corto, así 
que haremos que el número míni¬ 
mo de pasadas sea 256. Meteremos 
entonces en C un número que co¬ 
rresponda a la duración, y por cada 
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sonidos es 
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depende de la 
velocidad del reloj. 


unidad dp este repetiremos el bucle 
256 veces ayudados por el registro B. 
Con todos estos datos ya podemos 
escribir una subrutina que toque 
dos notas. 

Podrá ver en el listado ensambla¬ 
dor de esta subrutina con el nombre 
NOTO. 

A esta subrutina se, la llama te¬ 


FIGURA 2. Cargador Basic 
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210 FRTMT AT 0,0:"LEYENDO LINEA 
B 11 : FOR z = 1. TO 5: FRINT AT 0,16; 
z 

220 READ a:T; LET tfT=a*íLEM a:f~3 


FIGURA 4. Cargador Basic 
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TF LEN aí- '2 " MNT U..FN a*/2> THEN 
PRINT FLASH !üAT 0,0;"LINEA I 
MPAE EN"; STOP 
230 LET W=Oí FOR :< = 1 TO LEM 
STEP 2; LET v=VAL ai íx)* 18+VAL a 
:£Í7 í+ 1): LET w=w+v 
240 ROLE ad,v:i LET ád=ad-vI n NEX 
T i-! 

250 U T v=Os FQR x = l TÜ 4: LET 
v = y * 16 i V AL b t i x ) : N E X T : i F v < 1 
w THEN PRIMT FLASH 1 s AT 0,0; "E 
RROR en LINEA 11 : STOP 
260 NLXT z 
270 CLG 

230 FRTMT "PON LA CINTA PARA GR 
ADAR" 

290 LAVE 1 'C □ F'YOÜDE 11 C0DE 65360,1. 
61 


con música de demostración 

^10: LET b-llt LET c=l2: LET d“ 
13: LET e=l4; LET T = 15 t LET ad-4 
0000 

210 PRINT AT O.Os"LEYENDO LINEA 
FOR z=i TG 10; PRINT AT 0,16 
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IF LEN aí/2'- -IMT (LEN aT/lD THEN 
FRINT FLASH i;AT O,0;"LINEA I 
MPAR EN -1 s STOP 
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v v * 16 +VAL b T ( x > : M E X T x. : l F v •' , 
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260 MEXT ’ 
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CODIGO MAQUINA Y HACER; 
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niendo en el registro C la duración 
de la nota, y en los registros H y D 
los valores de las pausas de las dos 
notas. 

Observará que la subrutina tiene 
algunas instrucciones extrañas, co¬ 
mo LD, 1,A y LD SP,HL. Esas se uti¬ 
lizan para temporizar y conseguir 
que el bucle dure siempre exacta¬ 
mente el mismo tiempo. Natural¬ 
mente, no podemos cambiar alegre¬ 
mente el registro SP, pues podría te¬ 
ner efectos catastróficos, así que su 
valor original es restaurado al fina! 
de la rutina. 

El tiempo que pasa entre dos eje¬ 
cuciones de la instrucción QUT es 
de 63 T-estados, pero cada vez será 
para una nota distinta, así que el 
tiempo entre dos OUTS de la misma 
nota es de 126 T-estados. 


Esto nos servirá para calcular que 
la pausa ha de ser de unos 6689 T-es¬ 
tados. Para calcular entonces el va¬ 
lor que habría que colocaren H o en 
D para esta nota sería 6689/126=53. 
Así se pueden calcular los valores de 
pausa de todas las notas, Al final del 
listado, en instrucciones DEFB se 
encuentra una tabla con todos estos 
valores para cuatro octavas comple¬ 
tas, siendo la centra) la segunda de 
ellas. 

Dijimos que el bucle se iba a eje¬ 
cutar un mínimo de 256 veces. Co¬ 
mo cada vez tarda 63 T-esiados, el 
tiempo mínimo será 256*63=16128 
T-estados o (T004608 segundos. Así 
que para producir dos notas durante 
X segundos hay que meter en el re¬ 
gistro C el resu Itado de dividir X por 
0’004608. 






















Con esto creo que quedará bas¬ 
tante claro como se producen dos 
notas simultáneas. 


Almacenamiento en memoria 

El listado en ensamblador, utili¬ 
zando la subrutina NOTO, toca una 
música que hayamos colocado en la 
memoria. Va leyendo la memoria 
de dos en dos posiciones, tomando 
dos valores que corresponden a las 
dos notas. Estos valores pueden va¬ 
riar de 0 a 49, siendo el 0 el DO in¬ 
mediatamente inferior al central y 
numerándose el resto al igual que 
con la instrucción BASIC «BEEP». 

' El 49 no es una nota, sino que es el 
indicativo del silencio. 

Con estos dos valores se busca en 
la tabla las duraciones de las pausas, 
y luego se carga el registro C con la 
du ración de las notas. Variando este 
valor podemos tocar una música 
más deprisa o más despacio. 

El programa considera que la mú¬ 
sica ha terminado al encontrar un 


Para controlar con 
exactitud el tiempo que 
tarda en ejecutarse un 
programa en código 
máquina es 
imprescindible 
inhabilitar las 
interrupciones. 


255, y comienza a repetirla desde el 
principio. Puede pararse en cual¬ 
quier momento pulsando una tecla. 

Como la duración de las notas es 
la misma para todas, si queremos, 
por ejemplo que una dure el doble 
de lo normal bastará con ponerla 
dos veces. Esto quiere decir que si 
ponemos seguidas dos notas iguales 
no se oirán dos notas separadas sino 
una nota de duración doble. SÍ que¬ 
remos que suenen dos notas separa¬ 
das habrá que intercalar un peque¬ 
ño silencio. 

Para los que no tengan ensambla¬ 
dor se publica también un programa 


BASIC que carga el código en la me¬ 
moria. 


Componiendo música 

Para componer cómodamente 
para este programa, se incluye un 
sencillo programa BASIC que nos 
será fácil para introducir la música. 
Para su utilización habrá que hacer 
lo siguiente: 

— Teclear el programa de la figu¬ 
ra 3. 

— Grabarlo en una cinta con Ll- 
NE 10. 

— Grabar a continuación el códi¬ 
go obtenido con el listado ensam¬ 
blador o el BASIC de la figura 2. 

— Borrar la memoria y cargarlo 
con LOAD”” 

El programa nos presenta las si¬ 
guientes opciones: 

— Componer. Iremos introdu¬ 
ciendo las notas, primero de un ca¬ 
nal y luego de otro. Mientras no es¬ 
pecifiquemos nada, la nota será de 
la octava central y su duración será 1 
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(1 es la duración de la nota más pe¬ 
queña que utilicemos en la compo¬ 
sición. Su duración real dependerá 
de la velocidad que le demos a la eje¬ 
cución. (Por ejemplo, si a la corchea 
la llamamos 1, la negra 2, la blanca 3, 
etc., pero no podremos utilizar se¬ 
micorcheas ni fusas ni semifusas, 
porque su duración sería 1,5 y sólo 
se pueden dar valores enteros. Por 
eso debemos tener cuidado de cuál 
es la duración a la que llamamos 2). 
Si queremos cambiar a otra octava, 
añadiremos antes de la nota y sin de¬ 
jar espacio entremedias el valor de 
la octava de 0 a 3 (l=octava central). 


Sólo hay un método 
adecuado para 
conseguir dos notas 
simultáneas: mezclar 
sus ondas de forma 
alternada, dividiendo el 
tiempo que 

corresponde a cada una 
de ellas. 


vés de ellas con las teclas seis y siete. 
Cuando estemos sobre una deter¬ 
minada nota, tendremos las siguien- 


en una matriz numérica, ininteligi¬ 
ble para el programa en código má¬ 
quina. Esta opción vuelca en la me¬ 
moria la composición dejándola lis¬ 
ta para ser interpretada. 

— Tocar: Interpreta la música 
tras habernos pedido la velocidad de 
ejecución. 

— Grabar la música: Nos permite 
grabar una música a medio compo¬ 
ner para continuar otro día. 

— Cargar la música: Cargar lo 
grabado con la opción anterior. 

— Grabare! código: Graba los da¬ 
tos de la memoria que utiliza el pro¬ 
grama en código máquina. Para uti- 



Si queremos cambiar las duraciones 
añadiremos un número del 1 al 9 de¬ 
trás de la nota. Estos nuevos valores 
permanecerán vigentes hasta que 
los volvamos a cambiar. Para los si¬ 
lencios introducir «S». 

Cuando hayamos terminado con 
un canal pulsaremos ENTER. 

Al terminar los dos canales regre¬ 
saremos al menú, a no ser que haya¬ 
mos cometido algún error (la dura¬ 
ción de un canal es distinta de la del 
otro) en cuyo caso pasaremos direc¬ 
tamente a la opción de corregir. 

— Corregir: Visualiza las 20 pri¬ 
meras notas del canal que hayamos 
elegido. Podemos movernos a tra¬ 


tes posibilidades: 

— 5 y 8: Varían la duración de la 
nota señalada por el cursor. 

— 4 y 9: Varían la nota. Para obte¬ 
ner el silencio se pulsará el 9 hasta 
que aparezca la palabra «SILEN¬ 
CIO» 

- Q: Elimina la nota señalada 
por el cursor. 

- A: Duplica la nota señalada 
por el cursor. 

En cualquier momento podemos 
pasar a las siguientes 20 notas pul¬ 
sando ENTER, 

— Continuar la composición. 

— Volcar la composición: El pro¬ 
grama BASIC almacena la música 


Hzar esto en nuestros propios pro¬ 
gramas habremos de hacer los si¬ 
guiente: 

— Cargar e! programa en código 
máquina. 

— Cargar los bytes grabados por 
esta opción en la dirección que que¬ 
ramos. 

— Para tocarla hacer: RANDO- 
M IZEd :POKE65409, V: RAN DO- 
MIZE USR 65368, siendo d la direc¬ 
ción de la música y v la velocidad de 
ejecución. Hay que tener cuidado 
no utilizar gráficos definidos por el 
usuario, pues estropearíamos la ru¬ 
tina. 

PABLO ARIZA 
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o se ha preguntado nun¬ 
ca cómo se producen 
esas imágenes que a me¬ 
nudo vemos en televisión donde las 
figuras rotan, vienen y van? Como, 
por ejemplo, en las imágenes de 
apertura diaria de televisión donde 
cuatro bloques forman un recinto 
en el que se asienta una esfera for¬ 
mando el logotipo de TVE. Seguro 
que siempre pensó que se hacían 
por ordenador pero nunca llegó a 
imaginar cómo podían seguir una 
trayectoria tan perfecta y un movi¬ 
miento tan realista. En este artículo 
comentaremos la base de las técni¬ 
cas que permiten producir tales 
efectos. 

El programa que aquí presenta¬ 
mos es capaz de realizar gráficos in¬ 
teractivos en tres dimensiones, ver¬ 
los en perspectiva desde diferentes 
puntos de visión y cambiarlos de ta¬ 
maño. A diferencia de otros progra¬ 
mas que permiten la construcción 
de figuras interactivamente, este es 
capaz de dibujar la figura en pers¬ 
pectiva, reflejando la realidad, ya 
que traza la figura a través de las 
coordenadas que se le proporcio¬ 
nan. Es decir, usted podría dibujar 
su coche y verlo en perspectiva des¬ 
de el punto que desee simplemente 
tomando medidas de su automóvil y 
proporcionando las coordenadas al 
programa. 

Existen una serie de conceptos 

i 


básicos que hemos de manejar antes 
de empezara describir el programa 
y su funcionamiento. Estamos tra¬ 
bajando en el espacio tridimensio¬ 
nal, que es el que existe en la reali¬ 
dad, y los objetos de este espacio 
queremos dibujarlos en el espacio 
bidimensional, que es el existe en la 
televisión o en una hoja de pape). La 
¡dea es dibujar un objeto real, en 
tres dimensiones, en sólo dos di¬ 
mensiones y que esta representa¬ 


Para evitar que ei punto 
de visión esté dentro 
dei objeto, y para 
ajustar la figura a la 
pantalla, necesitamos el 
volumen de dibujo. 


ción relleje la realidad. Para ello he¬ 
mos de introducir el concepto de 
perspectiva. Para trabajar con la 
perspectiva hemos de saber desde 
qué punto estamos observando el 
objeto —no es lo mismo mirar aun 
coche de frente que desde abajo— y 
esto introduce el concepto de pumo 
de visión. 

Para tener una perspectiva ade¬ 
cuada desde el punto de visión del 
objeto que estamos dibujando es 
necesario que él punto esté fuera 
del objeto, Nosotros podemos ver 
nuestra casa en perspectiva desde 


fuera de ella y no desde dentro. Para 
evitar que el punto de visión esté 
dentro del objeto y para ajustar la fi¬ 
gura u objeto que dibujamos a la 
pantalla necesitamos lo que llama¬ 
mos el volumen de dibujo. Se trata 
de una especie de caja en donde es¬ 
pecificamos que vamos a dibujar. La 
definición de punto üe visión y volu¬ 
men de dibujo aparecen en la panta¬ 
lla cuando se va a hacer uso de ellos. 

Como nos estamos moviendo en 
el espacio tridimensional trabajare¬ 
mos con tres ejes que llamaremos 
X, Y y Z. Colocándonos de frente a 
una pared de una babitacíón el eje X 
sería aquél que va desde la esquina 
inferior izquierda, donde está el ori¬ 
gen, a la esquina inferior derecha. El 
eje Y seria la altura de la habitación, 
desde nuestra esquina origen al te¬ 
cho. Y el eje Z es aquel que vendría 
desde el origen hacia nosotros. 

En las lineas 160 a 290 se definen 
las ventanas que se van a utilizar. 
Utilizaremos la ventana 0 para in¬ 
troducir dalos y responder a pregu n- 
tas; la ventana 1 la dedicaremos a 
dar instrucciones e información; y 
la ventana 2, la más grande, se desti¬ 
nará para dibujar. 

En la línea 300 se inicializan algu¬ 
nas variables que se utilizarán en 
una comparación inicial: n, el nú¬ 
mero de filas que tiene la matriz de 
puntos «original», y xv, yv y zv que 
definen el volumen de dibujo pues- 
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to que estas coordenadas son las de 
un pumo oblicuamente opuesto al 
origen. 

Una figura puede dibujarse a tra¬ 
vés de los datos almacenados en un 
fichero o introduciendo datos inte¬ 
ractivamente. La opción se realiza 
en las líneas 310 a 350. Sise ha elegi¬ 
do leer los datos desde un fichero, se 
cargan en las líneas 380 a 560. Ob¬ 
serve que los ficheros tienen la ex¬ 
tensión 3d. a, b y c son las coordena¬ 
das que definen el punto de visión. 
Una vez cargados los datos del fi¬ 
chero se ejecutan tres procedimien¬ 
tos: matriz-transformación, ajustes- 
pantalle y redibuja. 

El procedimiento matriz-trans¬ 
formación (líneas 5000 a 5200) reali¬ 
za el grueso de cálculo del progra¬ 
ma. Explicar aquí el porqué de este 
algoritmo nos ocuparía más que la 
propia revista, con lo que obviare¬ 
mos la descripción detallada del 
mismo. En síntesis lo que hace este 
algoritmo es construir una matriz de 
transformación (trt), a la que se lle¬ 
ga a través de operaciones trigono¬ 
métricas y cálculo de rotaciones y 
traslaciones, que define la situación 
relativa entre el pumo de visión y la 
figura. 

El procedimiento ajustes-pantalla 

QL4 


(líneas 6000 a 6370) tiene como mi¬ 
sión última el cálculo de un factor 
de escala (escala) y dos factores de 
traslación (muevex y muevey) que 
se encarga de ajustar a las coordena¬ 
das de la pantalla los puntos en el es¬ 
pacio bidimensional, dados en el 
vector «punto». Para hacer esto se 
carga la matriz de pumos que deli¬ 
mita el volumen (vol3d) y se pasa al 
espacio bidimensional (almacenán¬ 


Una figura puede 
dibujarse a través de 
los datos almacenados 
en un fichero o 
introduciendo 
directamente datos 
desde el teclado. 


dose en vol2d) a través de la trans¬ 
formación que realiza el procedi¬ 
miento transforma. Este procedi¬ 
miento (líneas 7000 a 7070) aplica La 
matriz tr a cada punto y después rea¬ 
liza la transformación de la perspec¬ 
tiva con una simple regla de tres. 
Una vez conocido el volumen trans¬ 
formado a dos dimensiones (alma¬ 
cenado en vo!2d) no queda sino eje¬ 
cutar algunas ecuaciones de primer 
grado para calcular los factores de 



escala y traslación que harán que ca¬ 
da punto que se transforme de la 
matriz «original» puedan ser repre¬ 
sentados en la pantalla. 

Una vez hecho el trabajo difícil, al 
procedimiento redibuja (líneas 9000 
a 9110) no le queda sino dibujar las 
figuras con los datos de la matriz 
«original». La primera columna de 
esta matriz está compuesta de unos 
y ceros. Un uno significa dibujar y 
un cero mover. Las otras tres co¬ 
lumnas definen el punto en el espa¬ 
cio tridimensional. El procedimien¬ 
to redibuja transforma cada punto a 
dibujar a través del procedimiento 
transforma y después dibuja cada 
punto o se mueve a un punto, de¬ 
pendiendo del valor de la primera 
columna, aplicando los factores de 
escala y traslación para el ajuste en 
pantalla. 

Una vez que tenemos nuestra fi¬ 
gura en la pantalla podemos simple¬ 
mente disfrutar de ella o realizar 
cualquiera de las operaciones que se 
nos ofrecen en el menú principal 
(líneas 4000 a 4080). Pero antes de 
examinar estas opciones veamos 
qué pasaría si al principio decidimos 
introducir datos desde el teclado en 
lugar de leerlos de un fichero. 

En ese caso llegaríamos a la línea 

















620 y se ejecutaría el procedimiento 
punto-visión {líneas 2000 a 2150). 
Este procedimiento nos define lo 
que es el pumo de visión y pide que 
lo introduzcamos. Cuando lo hace¬ 
mos se comprueba que no está den¬ 
tro del volumen de dibujo y, si así es, 
da un aviso y pide que introduzca¬ 
mos las coordenadas de nuevo. Si 
hubiéramos elegido la opción de in¬ 
troducir datos por teclado la primera 
vez ahora no tendríamos las coor¬ 
denadas del volumen de dibujo pan* 
poder comparar, de aquí que se ini- 
cíalicen en la línea 300. 

Después de tener el punto de vi¬ 
sión se ejecutaría el procedimiento 
matriz-transformación para ejecu¬ 
tarse después el procedimiento vo¬ 
lumen {líneas 3000 a 3150). En este 
procedimiento se define el volumen 
o caja de dibujo, se piden las coorde¬ 
nadas y se comprueba que no con¬ 
tiene el punto de visión. Una vez. 
que el programa conoce el volumen 
de dibujo ejecuta el procedimiento 
ajustes-pantalla. 

Llegamos entonces a la línea 710 
donde se ejecuta el procedimiento 
menú principal (líneas 4000 a 4070) 
donde lo único que se hace es mos¬ 
trar las distintas opciones en la ven¬ 
tana informativa. Si pulsamos la te¬ 


da Intro accedemos a la parte de in¬ 
troducción de datos (líneas 790 a 
880). Nada más introducir las coor¬ 
denadas del punto se transforman 
(con el procedimiento transforma) y 
se dibujan con el procedimiento di¬ 
buja (líneas 8000 a 8090). Es uno de 
los procedimientos más sencillos. 
Aplicando los factores de escala y 
traslación para los ajustes de la pan¬ 
talla no hace sino dibujar o mover 


El punto de visión y el 
volumen de dibujo se 
pueden alterar para 
obtener diferentes 
vistas del objeto y 
modificar su tamaño. 


de acuerdo al primer número del 
vector. 

j Se puede cambiar el punto de vi¬ 
sión, para tener diferentes visiones 
de la figura, y el volumen de dibujo 
para ver la figura más o menos gran¬ 
de o extenderla. Para ambas opera¬ 
ciones la mecánica es similar: se in¬ 
troducen los nuevos datos, se hacen 
las transformaciones, se calculan 
los ajustes y se redibuja (líneas 890 a 
1000 ). 


Como lo que estamos haciendo 
es dibujar en tres dimensiones inte¬ 
ractivamente existe la posibilidad 
de que nos equivoquemos y por eso 
existe la opción de anular el último 
lpunto (líneas 1020 a 1090). Para ello 
lo único que se hace es reducir n en 
uno y redibujar si se ha trazado una 
línea al último punto. 

Las últimas opciones son las de 
grabar los datos (líneas 1100 a 1290) 
y de volver a comenzar. Observe 
que cuando decidimos grabar esta¬ 
mos grabando los datos (esto es, los 
puntos en el espacio tridimensional 
contenidos en la matriz «original» 
así como el punto de visión y el vo¬ 
lumen de dibujo) y no la figura. 

Por último, sólo una puntualiza- 
ción. El programa ajusta el volumen 
de dibujo a la pantalla. Da igual lo 
lejos que esté el punto de visión de 
la figura, seguirá siendo igual de 
grande. El punto de visión sirve co¬ 
mo posición relativa para ver dife¬ 
rentes perspectivas del objeto pero 
no cambiará su tamaño en la panta¬ 
lla. Para hacerlo habrá que cambiar 
el volumen de dibujo, Un volumen 
de dibujo más pequeño hará que la 
figura aparezca más grande en la 
pantalla y viceversa. 

Ricardo García y Garda 
O? 
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1010 m¡ e n u _ p t - i n c i p a I 

i 020 R E M a r k A n u 1 a r u 11 i m o p u r i c o \ A) 

1030 ON slc=65,97 

i 040 í f or i g i nal Cn-1,01; =0 THEN 

1.050 n-n-1 

1 060 EL.SE 

1070 n-n-1 

1060 red i buja 

1090 END IF 

i 10 0 R E El a r k (3 r a b ar da t p s (B) 

I í 10 O M s 1 c =71 u 10 3. 

1120 CLS#0 

1130 INPUT#O, ’ 1 Nombre del archiva: "ü nombra$ 

II 40 arenx vo$» M rnd v 1 43 foncambre$í> H ... 3d " 

1 15 0 D E L E T E are h:. v o $ 

1160 OREN_NEW#3 , arc h i vüI 
1170 PR1NT43,n 
1180 PRIMT#3-, a 
1190 PR1NT#3 M b 
1200 pr:i:mt#3,c 

1210 PRINT#3,xv 

1220 PRINT#3,yv 

1230 PR.INT#3 ,-sv 

1240 FÜR i ”0 TO n-i 

1250 FQR j«0 T[) 3 

1260 PR 1NT#3 , or i-g i n a 1 i 1 , j ) 

1270 END FÜR j 

1280 END FOR i 

1290 CLQBE#3 

1300 REMar k Comen z ar ele nuevo (O 
1310 ON sic—67 n 99 
1320 60 TÜ 280 

1330 Fi EMa r k Ni nguna de las anterior©s 
1340 ON slc --REMA IN DE R 
1350 CLSttO 

13 6 O F' R ]. N T fM.), " Opción n o v a i i da" 

1370 Gü ID 730 
1380 END SELect 
1390 Gü TO '720 

2 O O i- 1 RIIII a r k =- - 1' o ít : i a de d a t o s d e 1 p u. n t o de vi s;i. □ n -”• - 


Ote 








2010 
2020 
2030 
2040 
2050 
200' ' 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 

3000 
50 i O 
3020 
3030 
3040 
3050 
3060 
3070 
3080 
3090 
0 100 
3110 
3 1 20 
3130 
3 140 
.1. 50 
4000 
40 10 
4020 
4030 
4 0 4 0 
4050 
4060 
40'70 
408',' 
500O 

50 i 0 
5020 
5030 
5040 
5050 
506O 
5070 
50801 
5090 

51 00 
5110 
5120 
5 1 30 
5140 
5150 
5160 
5170 
5180 
5190 
5200 
6000 
6010 
6020 
6030 
6040 


que se va 


DEFi n e PR üCedu r e p un t o 
CLS# 1 
PRIl4T#l , 11 
PRlNT+tl, " Aquel 
PRI NT # 1 , M el 

CLSttü 
INPUT#0, 

INPU VítO, 
t npüt#o, 

IF a>=0 AND 
CLS.ttO 

PR INT 4*0 , " ERROR' 

Oü TP 2070 
END IF 
END DEFine 

FiEMar k Toma de datos 

DEFine PR0C edu.re vo 1 Limen 
CLS-ttl 


DEFINICION DE PUNTO DE VISION*' 
p u n t o e n e 1 esp a c i □ t. r i d 1 m e n s I o n a 1 


d esde 1 


a mira r 1 a -f i g u. r a d i b u jada” 


coordenada x = " ; a 
c: oor d en ada y = 11 ; b 
coordenada 2 " ; c: 

a < ;i = x v AND b >AN D 


b<=-yv AND c >-“0 AND 


¡“HbN 


u n t □ d e v i a 3 □ r \ d e n t r o d e o a. ,i a de dibujo 1 


p a r a d e 1 i m 1 t a r e 1 v o i u m e n d e d :L b u ,i o -—= :!! 


DEF I ¡41CI OH DE VO LUME N 
e x. p ac i □ t r i d i usen s i un a i , 


o r i o e n , q u e define una c a j a en 1 a qu e d i b u la r 


AND 


coordenada 
coordenada 
coordenada 
a<—xv AND 


"0 


11 ; x v 
" ;¡ y v 
11 i z v 
AND 


PR1NT#1, 

PRINTttl, 

PRiNT# 1 , 
c.LS#q 
INPUTttO, 

INPUT#0, 

INPUTttO, 

IF a>-0 
CLS# O 

FRINTftD, M ERROR: 

BQ Tü 3070 
END IF 
END DEFine 

RE Ha r k De.finici pn d © 1 m en u 

D E F i n e I- 1 IR O (i e d u. re i¡iev! up rmci p a 1 
CLS# i 

Introdacir datox 
Brabar datoa 
Co m enzar de nuevo 
TÜ 27,.80 TO 13,60 
Tü 15,7™ 


DE DIBUJO! Punto en e 
Q b i :i c u a ín e n t e o p ue s t a 


al 1 


b < == y v A ND c - 0 At-tD c <z v “I HEN 


Pli n to de vi si on der.tra d© c■ a ;a de di bu jo J ' 


p r i n t i p a 1 


C a m b i a r i j u n t p v i sion 1 
Fijar nuevo vo1u t nen 11 
A n u l a r u 11 i i n :> p u r -1 o 11 


PRINT#1 , " . In'troducir dat o s F*.. 

PRIMT# 1 , " S, Gr la bar datas V. 

I- E 1N T # I , r 1 C „ Come n z a r d e n lí e v □ A 

LlNE#i,27,95 TO 27«80 TÜ 13,80 TÜ 1 

LINE#1,13 H 80 
!_ND DE i::: i ¡ ie 

H LFia r k -™ s Cal:u I o de 1 a ma t r i x d© tr an^ f or macion - : =-= : 

DEFine PROCed ur e iTiat n z t r a n c sT or ¡nación 

L OCa1 o g „ sg,c b,a b,vue1 c a 

c:g-BQRT i c ■""2+ b "2 > /SQRT ( a - 2+n -’ 2+ c- 2 > 

sg-a/SQRT(a’2+b -2+c'2) 

cb™c/ SQ'FÍT (o 2+b 2) 

sb=”b / SQRT 1 c- ,v 2+b"-2) 

vue 1 c. (— < c<O) ) + < c >=0 ) 

i r í 0 , 0í-c g* Vue1ca 

tr ÍO, 1J =0 

tr í 0,2)=“5g 

tr(1,0) =éb* eg * vueíc a 

tr í í,1)-cb^vuelca 

tr < 1,2)=sb*cg 

t r ( 2 , O ) =“■ cb * og * vue 1 c a 

tr(2,1>“sb+vuelca 

tr (2,2)=-cb^cg 

tr (3 , Oí = ( ( - a ) < b*sb-c^cb ) ) * vue lea 

tr (3, 1 ) ; =“ (b*cb+c^sb) * vuéle a 
tr (3,2) (b*sb-c-*cb ) 

END DEFine 

REMark —Parametros para ajustar el dibujo a la pantalla = ; - 
DEFine PROCedure ajustes_„pant al 1 a 

REMark carga la matriz de ouhtos que delimita el volumen 

RESTOSE 

FÜR i“0 TO 7 


cu 

















60bO FC3R j=0 T'U 2 
6060 READ vdI 3dCi ? j ) 

6070 NEXT 1 
6080 NEXT i 

6090 DATA 0,0,0, :< v , O ,, O,, O , y v , O , x v , y v , O „ O , } O , z v „x v O , z v ,Oy v „ ¿ v , > , y v , z v 

610 O R EHar le t r a n t» f or m a c :i, o n y p r o y e c c i o n d e I o s p u n t o a d e 3. v o 1 u i ti e • i 
6110 POR i =?0 TO 7 

6120 traris-forma vol 3d (i , 0) v va 1 3d (i . 1) , vol 3d (i ,2) 

6 130 v o 1 2 d ( i „ 0)p un to i 0 ) 

6140 vol2d(i,1)-punto C1> 

6150 NEXT i 1 

616 0 R E M a V" k m a x i ni o y m i n i rn d d tí 1 v o 1 u m e n p r ó y e c: t a d o 

617 0 m a x x - v o I 2 d (0 „ 0) 

6180 til :i n x --vo 1 2d (0 , 0 ) 

61 90 max y=vo 1 2d (0,1 ) 

6200 fin i ny—voi 2d í 0 , 1) 


6210 

FÜR 1=1 TO 7 


~ 


6220 

IF val2d <i h 0) >maxx 

THEN 

maxx-vol2d(i 

,0' 

6230 

I F' vol 2d ( i , 0) < mi nx 

THEM 

minx-vol2d(i 

,0! 

6240 

IF voX2d (:i. „ 1 ) >max y 

THEN 

maxy-vc12d(i 

, 13 

6250 

6260 

IF vü 1 2d (1,1) ■'!miny 
NEX"’- i 

THEN 

miny-vol2d(i 

-1) 


6270 R E M a r k d @ t e r m i n a t:: i o n d el f a otar de esc al a y de t r a s laci o n 
6280 IF' 164/10 O < -- (m a x í< - m i n x ) / ( rn a x y -■ m i n y) i" H E N 

6290 esc a 1 a = 16 4 / (m a x x. m i n x ) 

6 300 muev e x — -™ m i n x esca. 1 a 

6 310 m la evev= C10 0 - (m a x y - miny) * s s o a 1 a) / 2 - m i n y e c a I a 
6320 ELBE 

633O escal a=l00/ (nrax y ■ itt 1 n y) 

63 4 0 mué v ex “ ( 1 64- (m ax x m i n x ) # esc a 1 a J / 2- m i n-»-ese a 1 a 

6350 rn u e v e y =--• ™ m i n y * e a c a 1 a 
6360 END IF 
6370 END DEFine 

7000 R E M a r k = ! -- : !!B! — Realiza la transf aríuac i on y proye c c 1 □ n =-=-== 

7 0 10 D E F i n e P R ü C e el u r e t. r a n s f □ r m a (;■ í , y ,, z ) 

7020 p latí t o (O)- x r i O , O 3 + y *t ríl, O ) r (2 , O > +1 r í 3 ,0 > 

7030 punto(1)=x*tr(0,1)+y*tr<1,l)+2*tr<2,l>+tr (3,1) 

704 0 p un t o C 2) = x *t r (0,2) + y -*t r (1,2) +z t r (2,2) Hr (3,2) 

7OS0 p li n t o (0 ) ™pun t.o í 0 í /punto (2) 

7060 pLin to ( 1 > : -pL.into í i ) /punto ( 2> 

7070 END DEFihe 

8000 RE'lar k ==«=- Traz a lineas según va 1 ores d e matr i z or i g i na 1 =-= 
8010 DEF" i. n e PF'( OCadure d i bu ja 
8020 XF pr i gi nal (n, 0) 0 THEN 

B 03 0 LIN E # 2 , p u n t □ (0 ) * e s c a 1 a +■ rn u. e v ex ,pu n t. o C1) escala * m u e v e y 
8040 n = n+:L 
8050 ELSE 

8060 L. I N E # 2 T □ puntaí 0 > ^escala m u. e v e x , p u i"i t o ( j ) * o s c a 1 a + m u e v e y 
0070 i“[ --n -T-1 
BOBO END 1F 
8090 END DEFine 

9 0 0 tí R E n a i- k - “ : R e ci i b u j st 1 a m a t r i z □ T " i g i n a X comple t a -== 

9 010 D E F i n e P OC e d u r" e r e d i b u j a 

9020 CLS#2 

9030 POR i=0 T0 n —1 

9040 fcransFxma erigí nal > :¡. , :!. > , cr: g i nal O .,2) .original Vi , 3) 

9050 IF orí q :i. n a 1 < i , O > — 0 "l"HEN 

9060 LI N E W2 , p u n te (Oí ^esc a 1 a + m si e vex . pune □ (1 ■ e s e a 1 a -Fe u e v e y 
9070 EL BE! 

9080 LI H tI : 2 T 0 p*».n 'i:.o (0 > *essc a 1 a h- m r .. : .evex M p la n to ( 1) *escala+mue\ ey 
9090 END IF 
9100 NEXT :i 
9110 END DEFine? 


ex? 













A PRENDIENDO 


Continuamos escudri¬ 
ñando en la memoria del 
Spectrum para ver cómo 
marchan las cosas cuando 
el operativo está funcionan¬ 
do. Descubrimos una zona 
denominada «Información 
para canales» que desde el 
código máquina puede resul¬ 
tarnos muy útil para ciertos 
propósitos. 

















































































APRENDIENDO 




Si observamos el mapa de memo¬ 
ria que ofrecimos en el pasado capí¬ 
tulo veremos que, iras las variables 
del sistema y a partir de la dirección 
23734, existe una zona denominada 
«Mapas de Microdrive». Es una zo¬ 
na que sólo aparecerá si estamos 
usando un microdrive con el Inter- 
face 1, por lo que la dejaremos de la¬ 
do para meternos a fondo en el estu¬ 
dio de estos periféricos en otra oca¬ 
sión. 

Si no tenemos conectado el Inter- 
face 1 es la siguiente zona, «Infor¬ 
mación para canales», la que ocupa 
estos bytes. Esta zona, poco conoci¬ 
da por lo general, puede resultarnos 
de gran utilidad a la hora de abrir ca¬ 
nales propios para el control de 
cualquier cosa que «pinchemos» al 
Spectrum o para hacer un uso de los 
canales existentes distinto del habi¬ 
tual. aunque quizá sea necesario ex¬ 
plicar antes lo que entendemos por 
canal. 

Canales y corrientes 

El tratamiento de los dispositivos 
de E/S (incluida la pantalla) se con¬ 
sigue en el sistema operativo del 


Spectrum de una forma potente y 
versátil, gracias al uso de ios llama¬ 
dos canales y corrientes. Un canal es 
aquella parte del sistema del orde¬ 
nador a la que se puede enviar 
o recibir datos, mientras que co¬ 
rriente (stream )es la vía que usamos 
para transportar esos datos. En reali¬ 
dad. en castellano se utiliza muy a 
menudo la palabra canal para refe¬ 


Un canal es una parte 
del sistema a la cual se 
puede enviar datos, 
mientras que una 
corriente es la via 
utilizada para 
transportar esos datos. 


rirse a ambas cosas, de forma que 
los puristas tomen un lápiz y prepá¬ 
rense para corregir cada vez que les 
apetezca. 

Desde el BASIC hay varios co¬ 
mandos en los que podemos especi¬ 
ficar el canal a utilizar, con PR1NT, 
LIST y CAT para salidas, e INKEYS 
e INPUT para entradas (en verdad 
este último también puede actuar 
como salida). De esta forma si hace¬ 


mos PRINT # 1 imprimiremos en la 
parte inferior de la pantalla, con 
PRINT #2 lo haremos en la parte 
principal, mientras que con PRINT 
tí 3 ei texto irá a impresora (si estu¬ 
viera conectada la ZX-Printer). Si 
tuviéramos conectado algún micro¬ 
drive podríamos abrir un canal, por 
ejemplo el 4 para imprimir con 
PRINT #4 directamente en un fi¬ 
chero del cartucho, mientras que si 
somos lo suficientemente hábiles, 
podremos abrir un canal propio pa¬ 
ra, por ejemplo, poder imprimir 
dentro de una determinada variable 
alfanumérica, como veremos des¬ 
pués. 

Cuando se inicializa el Spectrum. 
cuatro canales quedan especificados 
en la zona de información para ca¬ 
nales. El canal «K» se usa, como sa¬ 
lida, para escribir en la parte inferior 
de la pantalla, y, como entrada, para 
explorar el teclado. El canal «S» se 
usa como salida para escribir en la 
parte principal de la pantalla, mien¬ 
tras que dará error si intentamos 
u sa rl o com o e n t rada. El can al« P» se 
usa para imprimir con la ZX-Printer 
(o compatible), no se usa como en¬ 
trada. El canal «R» no puede ser 
















usado desde! el BASIC, pero desde 
código máquina podemos utilizarlo 
para escribir en el área de trabajo 
{en el mapa, «Entrada de datos»). 
Las corrientes que se asignan a estos 
canales son: 0 y 1 para el canal «K», 
2 para el «S», 3 para el «P», y, desde 
C/M, -3 (FDh) para el «K», -2 
(FEh) para el «S» y—1 (FFh) para el 
«R». 

Formatos en memoria 

Para cada canal, podemos encon¬ 
trar 5 bytes en la zona de informa¬ 


ción para canales que marcarán el 
uso que vaya a hacerse de ellos. Los 
dos primeros bytes de cada uno for¬ 
man la dirección donde se encuen¬ 
tra la rutina que debe ser usada pa¬ 
ra las operaciones de salida. Los dos 
bytes siguientes son la dirección de 
la rutina de entrada, mientras que el 
quinto byte es el código de la letra 
usada como identificador de canal. 
Si un canal no admite ser usado, por 
ejemplo, como salida, deberá apun¬ 
tar en los dos bytes correspondientes 
a la salida hacia una rutina de error 
específica, o bien a una simple su¬ 


brutina que podría constar sola¬ 
mente de un RST 8 seguido del có¬ 
digo de error que interese. 

Lo explicado sólo es totalmente 
válido cuando no tenemos en Inter- 
face I conectado, pues este utiliza 
nuevos canales para manejar los mi- 
crodrives que no responden al mis¬ 
mo formato. 

Las rutinas de salida deben admi¬ 
tir, al ser llamadas, que sea en el 
acumulador donde se les pase el có¬ 
digo ai que deben dar salida. Lo hay 
que hacer con ese código depende 
de la imaginación del programador 


10 


ORG 

ÓOOOO 

390 


RST 

S 

20 




400 


DEFB 

1 

30 

0P_rt4 



410 

LOC_Ai 



40 


LD 

HL,(PROG) 

420 


CP 

ü 2 « 

50 


DEC 

HL 

430 


JR 

Z,A _Z* 

60 


PUSH 

HL 

440 


CALL 

NEXT_0 

70 


LD 

BC, 5 

450 


EX 

DE, HL 

80 


CALL 

MAKE_R 

460 


JR 

LOC_Z* 

90 


POP 

DE 

470 




100 


LD 

HL,TBLCHN 

480 

A_Z«fc 



110 


LD 

BC, 5 

490 


INC 

HL 

120 


LDIR 


500 


LD 

E,(HL) 

130 


LD 

HL , 5TRM5+14 

510 


INC 

HL 

140 


LD 

(HL),21 

520 


PUSH 

HL 

150 


RET 


530 


LD 

D,(HL) 

1Ó0 




540 


INC 

DE 

170 

TBLCKN 



550 


PUSH 

DE 

180 


DEFW 

SALIDA 

5ó0 


ADD 

HL , DE 

190 


DEFW 

ERROR 

57U 


CALL 

ÜNE_SP 

200 


DEFB 

"Z" 

580 


PUSH 

HL 

210 




590 


POP 

BC 





600 


POP 

DE 

220 

230 

s "Invalid 1/0 device' 1 

Ó10 

620 

FINVRS 

POP 

HL 

240 

ERROR 







250 


RST 

8 

630 


LD 

(HL),D 





640 


DEC 

HL 

260 


DEFB 

18 





o-? n 




650 


LD 

(HL),E 

280 

SALIDA 



660 


EX 

AF, AF’ 





ó 70 


INC 

BC 

290 


OR 

A 





300 


EX 

AF, AF ’ 

680 


LD 

(BC),A 





690 


RET 


310 


LD 

HL, (VARS ) 

700 




320 

LOC^ZS 



710 




330 


LD 

A, (HL ) 

720 

PROG 

EQU 

23635 

340 


CP 

128 

730 

MAKE_R 

EQU 

rtló55 

350 


JR 

NZ.LOC^Al 

740 

STRMS 

EQU 

23568 

360 




750 

VARS 

EQU 

23627 

370 

i * Variab1e 

not -fDUfid" 

760 

NEX7_G 

EQU 

M9B8 

380 




770 

ONE_SP 

EQU 

ftl 652 

















APRENDIENDO 



y de los fines que persiga. Por ejem¬ 
plo, la rutina de salida usada para el 
canal «S» es nuestra conocida de la 
dirección 001 Oh (esa que usamos 
con RST 16), ala que hay que pasar¬ 
le en A el código del carácter a escri¬ 
bir. Lo mismo hay que decir de las 
rutinas de entrada, que, al ser llama¬ 
das devuelven en el acumulador el 
valor conseguido del dispositivo de 
entrada (o cualquier cosa que use¬ 
mos como tal). 

Pero no sólo basta tener especifi¬ 
cados en RAM los diferentes cana¬ 
les posibles, sino que tiene que ha¬ 
ber un sitio en el que aparezca a qué 
canal corresponde cada una de las 
19 corrientes (entre la—3 y la 15, in¬ 
cluidas las tres «fantasmas» ya co¬ 
mentadas y no accesibles desde el 
BASIC) que pueden llegar a coexis¬ 
tir en un Spectrum. Este lugar está 
situado entre las variables del siste¬ 
ma que vimos el pasado capítulo, 
concretamente a partir de la posi¬ 
ción de memoria 23568, denomina¬ 
da STRMS. Allí podremos encon¬ 
trar, con dos bytes para cada corrien¬ 
te, el desplazamiento relativo a 
(CHANS)—1 de cada una de las 19 
corrientes empezando por la —3. 

Por ejemplo, para el canal -3, po¬ 
demos buscar en las direcciones 
23568-9, para el 0 a partir de la 
23568+6, o sea, en 23574-5; para la 1 
en 23576-7, y así con todas. En el dos 
encontraremos, si no hemos enre¬ 
dado mucho aún, un 6, que sumado 
a (CHANS)—2 nos dará la dirección 
de comienzo de los 5 bytes corres¬ 
pondientes al canal «S» en memo¬ 
ria. Si el número que conseguimos 
en STRMS es un cero quiere decir 
que esa corriente no ha sido abierta 
(o que ha sido cerrada). 

Abriendo corrientes propias 

Sabiendo todo esto, no resulta 
difícil abrir canales para que apun¬ 
ten a las rutinas que nos interesen, y 
nuestras propias corrientes para que 



apunten a ellos. Lo primero que hay 
que hacer es abrir un canal en la zo¬ 
na de memoria correspondiente, es 
decir, al final de CHANS (otra op¬ 
ción menos elegante es situarlo en 
el buffet áz la impresora), pero como 
aquí es donde normalmente se en¬ 
cuentra almacenado el programa 
BASIC, primeramente habrá que 
abrir un hueco de 5 bytes en esa di¬ 
rección de forma que no alteremos 
dicho programa. Esto es bastante 
sencillo si utilizamos la rutina de la 
ROM llamada MAKE ROOM, a la 
que hay que pasarle en BC el núme¬ 
ro de espacios que queramos nece¬ 
sitamos, y en HL la dirección donde 
queremos insertar algo. 

En el listado adjunto os ofrece¬ 
mos una útil rutina cuyo cometido 
va a ser abrir un canal llamado «Z» 
que sólo funcione como dispositivo 
de salida e imprima cualquier cosa 
en la variable x$; después dirigire¬ 
mos hacia allí a la corriente 4 (o al 
«canal» 4), de modo que podamos, 
por ejemplo, ejecutar PRINT 4; 
2*2 y que un precioso «4» se añada 
al final del contenido de z$. 

Al comienzo se hace lo que co¬ 
mentamos dos párrafos más arriba 
par abrir un canal «Z» en la zona de 
información para canales. Esto lo 
efectúan las líneas 40-200, abriendo 
el hueco (líneas 40-80) y copiando 
los cinco bytes especificados en 
TBLCHN al final de esta zona 
(líneas 90-150). La subrutina 
ERROR es la de entrada, que hace 
que si, por ejemplo, intentamos eje¬ 
cutar un INKEY$ 4 aparezca el 
error correspondiente. 

En la rutina de salida localizamos 
primero a Z$ en el área de las varia¬ 
bles (LOC_ZS), dando, si esta varia¬ 
ble no existe o si está dimensionada, 
el error «Variable not found», o pa¬ 
sando a A„Z$ cuando está localiza¬ 
da. Allí se hace hueco para un nue¬ 
vo elemento, se ajustan los punteros 
y se introduce el valor del acumula¬ 
dor al final de la cadena. El formato 
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LE OFRECE LOS MEJORES LIBROS 
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P.VLP. 750 PTAS. 

(IVA INCLUIDO) 

Descubre los misterios de la 
programación de una forma 
sencilla, con ejemplos, 
programas y organigramas. 
(110 páginas, tamaño 13 r 5 x 21) 



P.V.R SCO FTAS. 

(IVA INCLUIDO) 

Con utilidades, juegos 
exploxivos y gráficos 
dinámicos que lleva al BASIC 
hasta el mejor 
aprovechamiento de sus 
posibilidades. 

(200 páginas, tamaño 
15,5 x 2i F 5). 



P.V.P. 750 PTAS. 

(IVA INCLUIDO) 

Un libro especialmente 
dedicado a los que se inician 
por vez primera en el mundo 
del Spectrum, 

(100 páginas, tamaño 13 r 5x21). 



P,V,P. 800 PTAS. 

UVA INCLUIDO) 

Una inestimable ayuda que 
complementará la que 
proporciona el manual del 
ordenador. 

(108 páginas tamaño 
13,5 x 21,5). 



P.V.P. 900 PTAS* 

(IVA INCLUIDO) 

Un compendio de los 
programas más diversos con 
los que podrá aprender 
jugando las importantnes 
características del BASIC. 
(258 páginas, tamaño 
15,5 x 21,5), 



P.VP. 800 PTAS- 

(IVA INCLUIDO) 

Muestra una visión más 
completa del correcto 
funcionamiento del juego de 
instrucciones del C-64. 

(108 páginas, tamaño 
13,5 x 21,5), 
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APRENDIENDO 



que tienen ias variables en memoria 
dentro de su área correspondiente 
será estudiado extensamente Junto 
con la zona del BASIC, en el si¬ 
guiente capítulo. 

Hay que resaltar las limitaciones 
que tiene esta rutina: En primer lu¬ 
gar, la variable Z$ debe haber sido 
creada (aunque sea como cadena 
vacía, es decir, con LET Z$=“ ”) 
antes de intentar imprimir por el ca¬ 
na! 4; si no ha sido así aparecerá el 
error «Variable not found», lo mis¬ 
mo que si la variable Z$ había sido 
dimensionada anteriormente. La 
rutina no funcionará tampoco (lo 
hará incorrectamente) cuando se 
trate de imprimir cadenas de más de 
un carácter en forma directa, de¬ 
biendo, en ese caso usar de inetrme- 
diaria a cualquier otra variable. O 
sea, en lugar de hacer PRINT 44 4; 
“periquito”, habría que hacer: 

LET a$="periquito”: PRINT 4*4: 
aS. Esto no será necesario cuando 
las sentencias son parte de un pro¬ 
grama. 

Otros usos 

Como hemos visto, no es difícil 
crear nuevos canales que respondan 


a nuestras necesidades específicas, 
y que puedan ser usados en forma 
cómoda desdel el BASIC para dar 
salida de cualquier cadena o valor 
numérico. Pero la cosa no se queda 
ahí, ya que podemos usar las posibi¬ 
lidades que nos brinda el BASIC de! 
Spectrum para sacar por nuestro 
propio canal el catálogo de un cartu¬ 
cho o un listado BASIC. Por ejem¬ 
plo, volviendo a la rutina anterior¬ 
mente vísta, podemos hacer LIST 
#4 para listar directamente en la 
variable Z$, de esta forma tendre¬ 
mos en Z$ todo el listado del progra¬ 
ma BASIC que haya en ese momen¬ 
to, y allí, medíante un sencillo pro¬ 
grama, podríamos localizar una de¬ 
terminada cadena o algo por el esti¬ 
lo. 

Aunque el crear un nuevo canal 
no suele dar problemas, también 
puede usarse un cana! ya existente y 
modificarlo para que sus rutinas 
apunten a donde nos interese. En 
este sentido el canal «K» no admite 
modificaciones, pues sus direccio¬ 
nes originales son restauradas cada 
vez que se ejecuta un INPUT, pero 
los otros tres sí pueden ser retoca¬ 
dos para que apunten a nuestras ru¬ 
tinas, con lo que podríamos conse¬ 
guir 64 caracteres por línea para el 


canal «S» o un canal «P» que con¬ 
trole una impresora específica que 
no sea la ZX-Printer. 

De todas formas, hay que andar 
con mucho cuidado cuando se tra¬ 
baja en este tema, pues el operativo 
del Spectrum, aún siendo toda una 
obra de arte, no es todo lo seguro 
que cabría esperar y resulta siempre 
una caja de sorpresas. Por ejemplo, 
si queremos cerrar uno de los cana¬ 
les que hayamos implementado de 
nada nos servirá GLOSE 4 , de he¬ 
cho esta instrucción, usada por los 
canales 4-15, colgará irremisible¬ 
mente la máquina si el Interface 1 
está ausente. 

Queda, pues, demostrado que el 
crear nuestros propios canales pue¬ 
de ser de gran utilidad a la hora de 
compenetrar el inflexible BASIC 
del Spectrum con algunas de nues¬ 
tras rutinas de código máquina. Hay 
que volverá mencionar que lo dicho 
hasta el momento sólo se cumple en 
parte cuando tenemos conectado el 
Interface 1, por lo que quienes quie¬ 
ran aprender sobre todo lo que éste 
¡mplemcnta concerniente a canales 
y corrientes, deberán esperar el mo¬ 
mento en que dediquemos un capí¬ 
tulo a este interesante periférico. 

Luis Gala 
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E stamos en el mes de julio, se 
acercan los exámenes y hace 
un tiempo expléndido para co¬ 
mernos la moral. En esta situación 
cayó en mis manos el nuevo progra¬ 
ma de ULTIMATE. Solamente por 
tratarse de esta casa se supone que 
debe ser una mavarilla y un objetivo 
idóneo para la guía de Hackers. Se 
trata del CYBERUN. Cuando se 
carga por primera vez nos encontra¬ 
mos con que no es lo que espera¬ 
mos. Los gráficos están bastante 
bien, pero no son del nivel al que 


El objetivo de Cyberun es 
montar las piezas de una 
nave espacial y recoger 
los cristales de Cybernita 
que nos permitirán escapar 
dei planeta. 


nos tienen acostumbrados. Nada 
más comenzar el juego nos encon¬ 
tramos a los mandos de una curiosa 


nave que avanza por el pérfll de un 
planeta. Esta permanece siempre en 
el centro de la pantalla moviéndose 
el resto del decorado con un scroll 
muy suave. Según dicen las instruc¬ 
ciones el objetivo es montar las pie¬ 
zas de la nave que se encuentran ra- 
partidas por el planeta y recoger los 
cristales de Cybernita con los que 
podremos escapar del campo de 
fuerza que envuelve el planeta. 

Conforme jugamos un par de par¬ 
tidas y aprendemos a defendernos 
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de los estraños habitantes del plane¬ 
ta nos damos cuenta de la gran com¬ 
plejidad del juego. El planeta tiene 
unas dimensiones impresionantes y 
un gran laberinto de cavernas subte¬ 
rráneas en las que nos perderemos 
con facilidad. 

Con las ideas así de poco claras 
sobre lo que hay que hacer para ter¬ 
minar la aventura nos lanzamos a 
otra no menos compleja. Tratare¬ 
mos de averiguar qué hay detrás de 
este programa y conseguir algunos 
POKEs que nos ayuden a acabar el 
juego. 

Como siempre, empezaremos 
por ver cómo funciona el proceso de 
carga con la finalidad de conseguir 
que lo haga sin que lanze el juego. 
Así tendremos el programa en me¬ 
moria para poder analizarlo con 
ayuda del monitor. Empezamos 
por cargarlo normalmente y proba¬ 
mos a hacer un break después del 
primer bloque. La ejecución se de¬ 
tiene con un curioso informe «Oul 
ofmemory». Sin duda se debe a que 
ha colocado el RAMTOP demasia¬ 
do bajo y tiene problemas par crear 
la zona de variables correspondien¬ 


tes al INTERFACE 1. Cambiamos 
el color de la tinta y ya podemos ver 
el listado del primer cargador. Nos 
encontramos con que aparte del 
CLEAR que ha originado el error 
hay dos LOAD “ ” CODE con una 
llamada a una rutina en máquina en 
medio y otra al final. El primer blo- 


El programa se lanza justo 
en la dirección en que 
comienza ei bloque 
principal, desactiva las 
interrupciones y salta a 
una dirección superior. 


que tiene que ser la pantalla de pre¬ 
sentación y la primera llamada se 
debe encargar de volcarla desde la 
dirección en que se ha cargado hacia 
la memoria de pantalla. Pero no de¬ 
bemos fiarnos de que haga sola¬ 
mente esto, sobre todo al darnos 
cuenta de que la segunda llamada. 


la que lanza el programa, es a una di¬ 
rección que corresponde con la me¬ 
moria intermedia de la impresora, 
donde no ha cargado nada. Carga¬ 
mos el primer bloque y el monitor 
para ver que es lo que ocurre real¬ 
mente. Nos encontramos con que 
aparte de mover la pantalla prepara 
un par de bloques en código máqui¬ 
na para usarlos antes de lanz,ar el 
programa. Uno de ellos va a parar 
justo a la dirección 5B80, a la que 
se llama desde el BASIC. La finali¬ 
dad de estas rutinas es mover el blo¬ 
que principal hasta la dirección 
t=F 5C80 y luuego rotarlo todo medio 
byte a la derecha. Esta es la direc¬ 
ción en que lanza finalmente el pro¬ 
grama, lo que empieza a preocupar¬ 
nos. Cae justo en medio de las varia¬ 
bles del sistema BASIC, lo cual im¬ 
posibilita el utilizar el monitor con 
el programa cargado en su sitio. (En 
realidad si que existe un monitor de 
PICTURESQUE que es totalmente 
independiente de estas variables y 
que podría funcionar, pero no es 
reubicable y no tiene las prestacio¬ 
nes del MONS). En principio inten¬ 
taremos cargar el programa en otra 


















dirección y deshacer la máscara. 
Cargamos el monitor encima y em¬ 
pezamos a analizar en una dirección 
cambiada. Aunque se han elegido 
las direcciones de forma que sea 
muy sencillo realizar la conversión 
(para mirar lo que hay en la direc¬ 
ción # 5C80 hay que dirigirse a 
# 6280) resulta realmente incómodo. 
Si tuviéramos que hacer esto duran¬ 
te todo el análisis habría que tener 
mucho cuidado con las direcciones. 

Sin embargo, nada más comenzar 
el análisis nos encontramos con un 
rayo de esperanza. Lo primero que 
hace es desactivar las interrupcio¬ 
nes y saltar a una dirección mucho 
mayor (# 9A66) en la que ya no ha¬ 
brá problemas para manejarlo en su 
sitio. 

Esta forma de lanzar el programa 
justo en la dirección en que comien¬ 
za ei bloque principal y hacer rápi- 


POKE 

639(12,201 

TABLA 1 

Partida continuada* 

POKE 

37745, X 

Número de enemigos (máximo 9). 

POKE 

63951.X 

Número de *klas iniciales. 

POKE 

64207,0 

Vidas infinitas. 

POKE 

38278.0 

Inmortal, 

POKE 

53617,201 

Evita la muerte por quedarnos sin combustible. 

POKE 

40029,0 

Permite escapar sin hacer nada. 

POKE 

45293.0 

Nn importa el orden. 

POKE 

37780,4 

Sin enemigos. 

POKE 

45369,0 

lías la con acercarse para coger una cosa* 

POKE 

5J 168.195 

Permite hajar la vela a los subterráneos* 

POKE 

53879,201 

No consume combustible. 

Para estos POKEs hay que jugar con el de partida continuada. 

POKE 

64494J 

Tenemos las pinzas desde el principio. 

POKE 

64497,4 

Propulsion horizonte 1 * 

POKE 

64498,5 

Propulsión vertical. 

POKE 

64499,6 

Ruedas* 

POKE 64500.7 

Plasma. 

POKE 

64501,8 

Bombas* 

POKE 

64502.9 

Soporte de Ja vela* 
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damente un salto a la dirección en 
que realmente debe empezar el jue- 
go es clásica de ULTIMATE. Que 
yo recuerde la ha utilizado en casi 
todos sus programas escepto en los 
dos escritos con la técnica Filmation 
1, que coincidieron con la época en 
que utilizo el método de protección 
SPEEDLOCK, en el que no queda¬ 
ba claramente definido el bloque 
principal del programa. En general 
suele colocar a continuación las ta¬ 
blas de datos y el mapa. De todas 
formas nunca habían apurado tanto 
la memoria como para sobreescribir 
el área de las variables del sistema 
BASIC. 



Rápidamente, montamos un nue¬ 
vo cargador que aunque no carga to¬ 
do el programa, lo hace en la direc¬ 
ción correcta y nos permitirá inclu¬ 
so ejecutar paso a paso algunas ruti¬ 
nas. Pasamos a ver lo que ocurre en 

# 9A66. Se trata de la zona de inicia- 
lización general del programa. Lla¬ 
ma a una subrutina en # F86B y lue¬ 
go salta a #F422, la dirección del 
bucle principal. En la rutina a la que 
llama nos encontramos con que a 
partir de# FAOO crea una serie de ta¬ 
blas de desplazamiento que servirán 
para acelerar el proceso de scroll de 
la pantalla. Lo que hace es colocar 
en la dirección # FAXX el byte XX 
rotado dos pixels a la derecha, y los 
dos bits que sacamos pasan a la di¬ 
rección # FBXX entrando por la iz¬ 
quierda. Lo mismo hace a partir de 

# FCOO pero rotando cuatro veces y 
a partir de # FEOO rotando seis veces. 
A la vista de estas tablas se deduce 
que el movimiento más pequeño es 
de dos pixels. La principal ventaja 
de esto es que sólo tiene que despla¬ 
zar el contorno del planeta, yaque el 
interior es una cuadricula que al 
moverla dos posiciones coincide 
con ella misma. De la misma forma 
crea a partir de # F900 la tabla de ro¬ 
taciones en la que para cada byte tie¬ 
ne almacenado su simétrico. Todas 
estas tablas ocupan en total 1792 by- 
tes, pero a cambio se consigue una 
gran velocidad en los desplazamien¬ 
tos y giros. 

Continuamos el análisis en 

# F422. Aquí está el bucle principal 


de juego. Se extiende hasta# F48A 
y sólo se abandona cuando nos han 
matado o hemos conseguido aban¬ 
donar el planeta. Enseguida surge la 
idea de anular los dos saltos condi¬ 
cionales que controlan estas dos sa¬ 
lidas. Pero los resultados no son de- 
masido buenos. Modificando el pri¬ 
mero (NOPeando #F481) nos si¬ 
guen matando de vez en cuando 
aunque sin descontar la vida. Sin 
embargo, cuando se acaba el com¬ 
bustible nos empiezan a matar con¬ 
tinuamente quedando el programa 
bloqueado. Si POKEamos el segun¬ 
do poniendo en # F487 un cero, nada 


puntos. Como funciona con las inte¬ 
rrupciones deshabilitadas esto pro¬ 
vocará el bloqueo del ordenador. 
De esta forma podremos saber cuál 
es el efecto de la parte de programa 
que ha sido ejecutada. Así llegamos 
a la conclusión de que la primera ru¬ 
tina a la que se llama (# F26C) ges¬ 
tiona toda la parte correspondiente 
al menú. A partir de aquí debe de es¬ 
tar la inicialización de variables y es- 
tees un punto del que normalmente 
podemos sacar bastante partido. Por 
esta razón nos adentramos en la ru¬ 
tina de la dirección # F3BD. Lo pri¬ 
mero que hace es poner a cero los 



más empezar la partida nos felicita 
por haber conseguido el objetivo de 
nuestra misión. Sólo sirve para des¬ 
cubrir que en total hay cinco plane¬ 
tas que se suceden cíclicamente y 
que cada vez que abandonamos uno 
obtenemos 50.000 puntos. 

El bucle se cierra sobre # F46C 
mientras jugamos y sobre #F440 
cuando nos acaban de matar. Lo 
que hay antes de esta última direc¬ 
ción debe de ser la parte de iniciali¬ 
zación de la partida y el menú. Para 
ir aislando la función de cada parte 
del programa probamos a colocar 
una instrucción HALT en distintos 


dos primeros bits de los 290 bytes a 
partir de la dirección # 5C94. Para sa¬ 
ber para que sirven modificamos es¬ 
to y nos encontramos con que se tra¬ 
ta de todos los soportes donde pue¬ 
den estar colocadas las cosas que 
buscamos. A continuación inicializa 
de la misma forma dos zonas de me¬ 
moria llamando dos veces a la mis¬ 
ma subrutina. Esta dualidad nos ha¬ 
ce pensaren los dos jugadores. De¬ 
ben de ser las variables que se con¬ 
servan cuando le toca jugar al otro 
jugador, esto es: los puntos, la posi¬ 
ción en que estamos, las partes de la 
nave que tenemos montadas, etc. 

































Sería una buena idea el que todo es¬ 
to se pudiera conservar de una parti¬ 
da a otra. Para ello bastaría con colo¬ 
car una instrucción RET al principio 
de la rutina. Pero no funcionará a no 
ser que cuando se cargue el progra¬ 
ma de la cinta ya estén las variables 
en su sitio. Rápidamente vamos a 
las direcciones donde deben estar y 
nos encontramos con que si que tie¬ 
nen el valor con que son inicializa- 
das. Poniendo en la dirección 
# F39E el dato #C9 se juega una 
«partida continuada», en la que si 
nos matan continuamos la siguiente 
partida en la situación en que está¬ 


bamos. 

Sf seguimos con la rutina de ini- 
cialización nos encontramos con 
que coloca en las direcciones 
# FSED y # F656 el dato # 05. No 
hay duda de que tiene que ser el nú¬ 
mero de vidas de los dos jugadores. 
Para asegurarnos cambiamos este 
dato por otro mayor y en efecto te¬ 
nemos más vidas. Como siempre 
buscamos el punto en que se decre- 
menta y conseguimos el POKE de 
vidas infinitas. 

El resto de la rutina cambia de si¬ 
tio algunas variables y al final llama 
dos veces a la dirección #6113 con 


distintos valores en el registro HL. 
Tiene que ser algo relacionado con 
los dos jugadores. Esta zona de me¬ 
moria corresponde con la que he¬ 
mos destruido para poder funcionar 
con el monitor. Quizá pudiéramos 
pasar sin saber cuál es su finalidad, 
pero puede ser importante y no 
cuesta tanto cargar la primera copia 
que hicimos y analizar la rutina des¬ 
plazada. Nos ponemos a ello. Lo pri¬ 
mero con lo que nos encontra¬ 
mos es que pone a cero los bits 7 
de una serie de bytes y luego realiza 
un estraño sorteo. Analizando dete¬ 
nidamente y con una serie de PO¬ 


KEs de ayuda llegamos a la conclu¬ 
sión de que se trata de la elección de 
la posición de las piezas de la nave y 
de la unidad de propulsión. En total 
tiene que sortear 16 cosas: siete par¬ 
tes de la nave, ocho partes de la uni¬ 
dad de propulsión y ia vela, que sólo 
puede ser cogida cuando ya tene¬ 
mos el soporte. La vela en realidad 
está formada por dos objetos, pero 
sólo se sortea la parte de abajo, que¬ 
dando determinada la posición de la 
parte de arriba. Para realizar el sor¬ 
teo tiene en total 44 posibles posi¬ 
ciones divididas en 5 grupos, uno de 
dos, otro de cuatro, otro de seis y dos 


de dieciséis. Cada objeto se sortea 
dentro de un grupo distinto. Así to¬ 
das las partes de la nave están en la 
superficie y relativamente cerca de 
la posición de partida. En cambio las 
partes de la unidad de propulsión se 
suelen encontrar en los pasadizos. 

Sabiendo ya como esta codificado 
todo esto no ofrece dificultad aden¬ 
trarse en el resto del programa en 
busca de los POKEs que nos permi¬ 
tan acabar fácilmente el juego (o 
avanzar en el ya que no tiene final). 
Anulando las llamadas a las rutinas 
en el bucle principal averiguamos 
cual es la utilidad de cada una de 
ellas. La que esta en la dirección 

# C374 se encarga del control de 
nuestra nave y del teclado, la de 

# CC77 del control del combustible, 
la de íf 8D42 del movimiento de to¬ 
dos los objetos de la pantalla, y la de 

# F23B de generar números aleato¬ 
rios. 

Los POKEs finalmente encontra¬ 
dos los tenéis en la tabla 1 y para 
usarlos basta con ponerlos en el 
programa 1 a partir de la línea 500. 
En este cargador ya se han incluido 
algunos más interesantes, entre 
ellos el que nos permite tener la na¬ 
ve totalmente montada antes de em¬ 
pezar la partida. Esto implica tener 
que jugar una partida continuada, 
puesto que sino en la inicialización 
nos quitaría todo. Para los que in¬ 
tentéis continuar buscando más co¬ 
sas tened en cuenta que las direccio¬ 
nes están calculadas para este carga¬ 
dor concreto que coloca el bloque 
principal desplazado 1536 bytes 
respecto a su dirección de ejecu¬ 
ción. En esta ocasión no se ha cons¬ 
truido un cargador de ¡os que nos 
preguntan por los POKEs antes de 
cada partida por el problema de que 
la memoria está utilizada en su tota¬ 
lidad y no hemos podido encontrar 
un sitio donde colocarlo durante la 
ejecución. Por último una adverten¬ 
cia respecto el POKE que nos per¬ 
mite recoger los pedazos de la uni¬ 
dad de propulsión en cualquier or¬ 
den. Si se coge más de uno simultá¬ 
neamente podéis tener problemas 
para colocar el último. 

Manuel Arana 
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MANDELBROT ataca denuevo 

No creemos en duendes, pero haberlos hay los, y el mes pasado se ensañaron con el artículo de Gerardo Izquierdo 
dedicado al conjunto de Mandelbrot. Tras una ardua batalla con la sección de montaje, tres de los cinco listados del 
artículo fueron derrotados y publicados en absoluto desorden, por lo que, esta vez con un fuerte apoyo de artillería por 
parte de la redacción, los reproducimos de nuevo integramente. 
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110 flÜIPlitl 

730 

bm 

340 

T=T*ÍI 

140 m REPtat lili 

7 4fl 

REPfit toza. 

350 

iLÜCK ?ttdclftr, i altor, s ,256-f actír-j- h tDlorHWI?Alt,¡rH 

LM ; 

750 

ttc La“-tODE r INtlEtt 4 -1 > 3 

360 

END m i 

110 KFiní mttíw* rflltna. 

7fifl 

bar 

370 

EN? FOR j 

m diMui tm 

770 

SEL til m t«ai 

360 EKD BEFi n? 

no árpate 

760 

= 192MF il l O THEN i!=¡tV2 

370 : 


170 FOR i*0 TÜ 255 

710 

í 2W1IF íl + Itl < 512 THEN iI-tW 

*00 íEFine F-uKrtiftn cul-arl Itll 

200 u ~ *1 * it t i 

m 

= 2IÓMF y\ + új\ í 25ó TKElí 

410 

IF 11=1000 THEN RETurn 1*1 

?lfl ni » y\ i 255 i 4? 

810 

' ^ ÍÍSIIF /I } 0 THEN 

i20 

iF .1 5 300 THEN RETurn l?l 

Z 20 yyl - yt + 128 t <fy 

m 

* m\ |F dM j io thfn dxl=dxW 

430 

IF Xl 1 100 THFN RETurn (61 

734 bisfry ¡N* (i J a O k 127^ HUI INI Iii,hJI jHIHII Ikk,hZ> 

830 

* 7ÍU1F itl ( 5¡2 THÍB 4kI-4iH2 

440 

IF v| } 70 THEN RETurn [IExt HIV 3J NO? 4) * 21 

240 ¡fjfl ^ j\ * W t -fy 

640 

= z: 7: EF dyl 1 25¿ (HEK dy^d^+J 

450 

ff£Tur-fü £11 

250 /y 2 = y] 

850 

- 267: TF dyl > 5 THEIf d^fyl-l 

*60 EMB KFini colarl 

260 hiitry ENT (íSjZS^SS.HUIÍA Ux, yyll 3 Hri?A 

m 

= 10:nue-we:E2Vf- 1 ? 0“RETurn 

470 : 


27* ENB Ffffl i 

vo 

^ (¡ENmiiíí 

4?0 ?EFir? PROCedure iuitnla 

7B0 END Dtfme 'e-L 1 

ÍM 

Eli? SEL'trt 

470 

- 0 

m ■ 

m 

uQt 

500 

?t > 0 

3CD OFFini íROCtíurt- ínstey (i!*yLt,c?ll 

FHJ 

ENO PEF.Ht leía 

510 

dxl - 512 

330 a£E,ycl,jrf 

3 :o 

fijo DE c í"e auitnls 

5T0 

iyt » 256 

m ice * x] * di t i| 



530 

0>7ER -i 

330 yrl * yi + 4y t í?55 - ]NTi<yUty2%H2)| 

V*‘ íEFmt FRíCedu^p bgr 

540 

bus 

345 ycrZ - yi + 4y i (255 - INTC!yll¡ty2ll Í2M1 

B40 

BL0CK 4x1- 1 , 1 , 11 *, yí p 7 

55 v 

RERéit Júí4 

350 IF cll v L n THEN 

*% 

simen ZjdyVitiiWjyv 


ttcla K C0BE M NKEtí E -1 11 

340 1 i rvp-g *SjlVV^VU 

m 

BL0CK dil-lJ.il^l+íyl-l.T 

570 

box 

370 EL5E 

m 

5L0CK 2 l d^ ] zl,yl h 7 

5E0 

5ÍUc». 8 N Udí 

360 IF lytt-ylll ■ l TREN 

m m OEFtnt be ( 

570 

S 192: CF íl J * THEN -.:I=t|-? 

390 mm 2,1,2Tx| P yII, edId?! íclll 

910 


¿00 

= 7001IF xl t U\ í 517 THEN ii-il+7 

4oo 3LDCK cmi 

1000 íE^lii? “RÍCiiliurt niitve 

filo 

= ZifiíÍF y% * dy* f 254 THEN ytsylM 

410 EtSE 

1*10 

W *tli i 51? 

420 

= 2O01ÍF f X í 0 TÜEN yl*yl'l 

420 btstcy x!,y!I p IIIT [[ylUyZll/?] ,c 11, HWIflAljccc.jr.ll 

1070 

dd? - dyi t 25¿ 

630 

= 1Í3-IF 4il 1 SO TRES dit-diü 2 

43fl biíery il, TRT i lyEl+yZ^I/ZJ ■* J ,yZI, HUESMxci: a ycZí h cZ% 

LO30 

Ti - TI * íl 1 44 1 

640 

= 703 MF i í 512 m* M=4i%*2 

440 m !F 

1040 

yl r yi + r25íryl‘i7!+11*44? 

450 

- 2171 IF dy\ ■' 256 THEN 

450 mif 

LC54J 

4 !t 3 = iic i dxl / 512 

■iíO 

■- JW3IF iyt 4 5 ^HEN dyl-dil^L 

m m OíFiat bt&rcy 

1040 

dyt ■ dyi 1 4yl i 25d 

6 ?* 

* JOmuí-VD: D9FR JiííTunfl 

4í* : 

1070 EHB OEFíat Hiño 

■480 

= RFMIK3EV 

4811 ÍEFins FKOCtdurt lints Éxiljil p iM¿yM,cll 



m 

m StLflt 

ÍLÜt * ( 211 tá v -1 ait 11 ]J ybl- y a %*l 1 „ 12 f»V, yi\ ,to 1 orí i cll 

i oc¬ 

Inicia]lia 



5D0 ENí KFina Ijjtt* 

ho 

HPtit lilB 



5lí : 

170 

rillfM 

700 

bot 

52Í1 ?EFint P'Rflítíu.rt inldaliii 

no 

MitnU 

710 

EN" P£P«at latí 

530 «OIE BiUriFDOV 512,250,0,0 

140 

EMC Rtítil 1 no 

720 EV3 DEFiftí Ayirta 

540 P4PER S:CLS:^I2I 3,1 

ira 

5 

730 


550 INPUT 1 tiVhlV íjp?HyiV HiV'únV tiyVHjt 

I4C 

BEFina PHOttiBít intcLilixi 

T *0 DEFnt PROCtíurt bov 

5¿0 PAPER QlCÍS 

170 

Fictor * 6 

750 

fiftCí dxl-l,!,*!,?!,? 

570 m HE F i ni inánalLii 

180 

H0&E l V1HD0Í "l,254,0,0 

>60 

BLOCN 2,171,11^11-2,^,7 

580 ; 

140 

PAPER 2:CLS:CSI2E 3 P J 

770 

BLffCK dti-1,1, *1,71^1*1,7 

5?0 QEFiAt fuNrlian color! lili 

200 

1HF4JT ' W'fiV 4dx?"dxil l *ty^' dyl 

70* 

110 CN Z,í;ylE p xTt K y1i J1 7 

A00 IF íl-IOOO TREN RETurn [01 

210 

PAPER 0ICLS 

7 n EK 6 ttEFint fin* 

¿10 IF ti 1 m THEN PETgrn Í7I 

220 

ENE EEFlni IñlciiMii 

E 00 


020 IF xí } :0G THEN RETurn I¿1 

230 


010 DEFint PROCtíurt fluitvo 

m IF ti 1 3 Í THEN RE turn 141 

2*0 

EEFlnt 84HK«4ut« rfltfm 

320 

ddx ■ dxl t 31? 

640 RETurn MI 

250 

CLS 

530 

Mf * iy i i 25ó 

¿50 m DEFtnt rclarl 

7ó0 

di * dxl * 4-JCttjr 1 Í5ó 

340 

iE * *1 * ii i ddx 

m : 

770 

4y - iyt 4 Hztir f 256 

650 

yi ■ 71 + lZM-yl-iyl*IIHd)f 

fi70 íÉTiíit PRPCtdurs aiirati 

280 

xÓ*KI-4x 

m 

dií * dit t dxl í m 

m t\ » 0 

2 T 0 


870 

dyi ■ Jyt t iyt í 25A 

filo i\ ■ 0 

300 

FM jNT T0 255 S1EP ftctlf 

880 EN? DEFÍNt nutVD 









p Esta rutina asseiblerp listi para ser llaiada por al BASIC 
i penite aipliar zonas íal conjunto de Vandalbrot. 

i Para ftlPj se tecles. HtííP *,y y devuelve ef omero que 

? hace falta que su lodulo pase de 7, 

i Ir'-fstsgaciDft y Ciencia de flctubee de 1.905 
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Igualdades iniciales 


Vectores 


uMc? equ tCfi 

«tjrrfl equ *EA 

bpjail iqu $110 

cj^gtíp equ $134 

fcv.ehrix eq-j $11* 

rTexec eqsi *1 ÍC 

ríjítrii eqíi $UE 

-„-r. ap t? 

in_Dpen equ ii 

íájlirae equ 12 

i”-"- — "-’ 1 --— Trap —- 

sdjij! equ S2E 

; .-—‘ — - Errores -- j 

«rrjp equ -15 

I...Supe rías te 

5v_rjp eqti $55 


Inicializar el prodedinersta 


inicie lea. i proeje!,al 
aove hp_ínit,i2 

jar íaZJ 

rts 

r.—- 


i Tabla ít definición de proeediiientos 
-- 


proejef it, 4 

0 

; 0 procediiientos 

ÍC.H 

0 


tfC.lf 

1 

; 1 fundón 

Ít.¥ 

linde! *i 

; conenzo 

te.h 
a l i jn 

S/MfflA' 

; noebre 

de.* 

0J 



Cardar los valores de x y y 


■andel 

■ave.1 

IMJI 

; Seservatns sitia pan IO Huleras 


■ove.H 

bvjhriXpiZ 



jsr 

Ciíl 



■ove,w 

ea_gttp ? a? 

1 poner en el star* lo* pirueteo! 


jir 

Il2l 



emp, ti¬ 

#2J3 

í May ím pimitro*? 


fa ne 

efrr_bp 

i NO 1 error 


Clr.i 


l poneios 2 ceroi íit e /II. 


ClrJ 

-éí¡M<l) 



clr.i 

-!?lad,al.1) 



■ove.' 

aljid 



adí.l 

il?,a4 



s'jh. 1 


í ittualizaios e! puntero de pila 


MVt. ! 

lfíMOOOOD p 7iii l a[.n i paneles A 


iove,« 

Homjíiépii.n 


clr.l 

d4 

| eipezaias * cantar 

Uia! 

adíq.i 

Upid 

1 a adnos 1 al contador 


■oveij 

10 j d7 

1 lieipre caro 


lea. I 

cakj,i3 

f lista de cálculos 


»OVP H 

r i Jsecbj a2 

; orden de calcular 


jsr 

U? i 

1 F-4 en OlAíJj.tl 


tst,] 

d0 



biie.s 

retorno 


ad i,* 


i restaúralos pila 

tst.l 

-4leá,aUl 

f eirnos signo de R-4 

bge.s 

final 

1 si >=0 teninar 

Cflp. M 


$ fEOOO iteraciones^ 

bit .s 

íiiol 

í NO seguir 


DívoIvehdS él resultado y tf^inaiDS 


final 



sometí 



nove,I 

3* jl 

1 toiaTos el. índice bueno de la pila 

subí* 

12, aí 

t a adiaos 2 actetos 

WVI. 1" 

aí Jvjipladt 

i salvaios el nuevo valor 

MWi* 

d4 J 0Cat J alil> 

i cargaios ah* el muero de iter. 

icveq 

*v* 

! el tipo es entero 

rts 


; ten matos 

! frror y 

i-etaríiD 


j 

im_bp 



loveq.1 

lerr^bp^dO 



retorno rts 


1 

1 

1 -- ,,T 

Definiciants de 

los cálculos 

1 

l J 


^qu 

-12 


u 


iqu 

-é 


Ijl 


equ 

-24 


Crt 


eqy 

-IS 


S_K E 


oqu 

-23 


Ktf 


equ 

-17 




eq ü 

-30 


talc_l 

dc.b 

l_il 


í 


dc,b 

S|« 


3 vi x\ 


dc.b 

HA 


i geE ti il 


d:.b 

$E 


I tlfü üí 


dc.b 

I./I 


; yl KltKl vi 


dc.b 

m 


i yl yl vllvl il 


dc.b 

$E 


í ylf/1 íltíl ü 


dc.b 

$C 


1 *Jhl-/Ífíl *1 


dc.b 

1 _í 


f v íl 


dc.b 

$4 


; üilvl-xíf yt*% vi 


íc b 

s_sl 


í lí 


dc.b 

\jl 


E /I tí 


tfc.t? 

$E 


3 vll/l 


de b 

$lá 


1 íifyl Vlfyl 


íc.b 

ta 


3 2tílf/l 


de, b 

1 J 


f y ?*vll/l 


Jc.b 

n 


3 nñiyfty 


dc.b 

$1A 


í Ztxiftyüy Zfvlfyl+T 


dc-b 

*-/l 




' En estos acnentos, t\ e yl tienen et nuevo vtíor, 


dc.b 

lid 

! yl yl 

dc.b 

*E 

\ vlfyl 

de b 

!_|J 

E íi yltyl 

dc.b 

$1 A 

í vi ¡¡1 ylíyl 

do b 

IF 

E xlfvl yífyj 

dc.b 

$4 

3 íllílryltyl - R 

de b 

IJ 

t * * 

dc.b 

tí 

3 M 

de. b 

0 

f fin 


’finna de variables 


1 

t 

■ 

yl 

íl 

r 

4 


..t’"- 
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PROGRAMAS 


PROGRESIONES 

Joaquín Herreros es el autor de este programa que permite 
resolver los problemas que se presentan con más frecuencia al 
trabajar con progresiones, tanto aritméticas como geométricas. 

Las opciones posibles son: hallar la razón de una progresión, 
hallar un término determinado, hallar el número de términos y 
hallar la suma de todos los términos. 



7 BORDER Os PAPER Oí INK 7s C 
LS 

15 GO SUB 1100 

19 GO SUB 20: GO JO 30 

20 CLS s PRINT " 

FOR a=l TÜ 

20; PRINT AT a,O;" "s PRINT AT a 
,31;“ "s NEXT a: PRINT " 


30 PRINT AT 7,2;"1.-PROGRESION 
ES ARITMETICAS.PRINT AT 14,2; 
"2.-PROGRESIONES GEOMETRICAS." 

40 IF INKEY*="i" THEN LET b=l 
: GD SUB 20: GO TO 100 

50 IF INKEY$="2 11 THEN LET b=2 
: GO SUB 20: GQ TO i00 
60 GO TO 40 

100 PRINT AT 4,2;"1.- HALLAR LA 
RAZON.": PRINT AT 8,2;"2.- HALL 
AR UN TERMINO DETER-": PRINT AT 
9,6;"MIMADO DE LA PROGRESION.": 
PRINT AT 13,2;"3.- HALLAR EL NUM 
ERO DE TER-": PRINT AT 14,6;"MIN 
OS DE LA PROGRESION.": PRINT AT 
18,2;"4.- HALLAR LA SUMA DE TODO 
S": PRINT AT 19,6;"LOS TERMINOS. 

II 

110 IF INKEY*- ,, 1" THEN LET c~5 
: GO SUB 20: Gü SUB b*lOOO: GO T 
O b*1000+c*100 

120 IF INKEY$«"2" THEN LET c=6 
: GO SUB 20: GO SUB b*1000i GO T 
O b*1000+c*100 


130 IF INKEY$="3" THEN LET c=7 
: GO SUB 20: GO SUB b*10Q0: GO T 
0 b*1000+c*100 

140 IF INKEY$="4" THEN LET c=8 
: 60 SUB 20: Gü SUB b*1000: GQ T 
O b *1000+11*100 
150 GO TO 110 

1000 PRINT AT 2,3;"LA PROGRESION 
ES DEL TIPOs”! PRINT AT 4,3;"t( 

1),t(2),t<3>,t(n-1),t (n>“: PRINT 
AT 6,3; "si endo: 11 

1001 PRINT AT 8,1;"t(2>=t(1)+r": 
PRINT AT 10,1;"t(3)-t(2)+r t(3 

)«t(l)+(3-t)xr": PRINT AT 12,1;" 
t(4)(3) +r t (4) *t (2) + (4-2) ¡ir " : 

PRINT AT 14,1;" .-. 

. ”: PRINT AT 16,1;“ 

t (n>=t(n-1)+r"s PRINT AT 19,8; F 
LASH 1;"t (a>=t(b) + (a-b)xr" 

1002 PRINT #0;" PULSA UNA TECLA 
PARA CONTINUAR " 

1003 PAUSE O 

1004 GO SUB 20: GO SUB 1010: RET 
URN 

1010 PRINT AT 2,2;"LA SUMA DE TO 
DOS LOS TERMINOS";AT 3,2;"DE LA 
PROGRESION:";AT 5,2;"t(1),t(2),t 
(3) ,t (n—1) ,t(n)";AT 7,2;"ES:";AT 

9,2;"S=t(1)+t <2)+.+t(n-1)+t 

(n)";AT 11,2;"Y SUSTITUYENDO QUE 
DA; 11 

1020 PRINT AT 13,10;"S=t(1)+tín) 
xn";AT 14,16;"2"; PLOT 96,63: DR 
AW 70,0 
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1.- HflLLPR LR RAZON. 


2.- HALLAR UN TERMINO DETER¬ 
MINADO DE LA PROGRESION. 


3.- HALLAR EL NUMERO DE TER¬ 
MINOS DE LR PROGRESION. 


4-.- HALLAR Lfi SUMA DE TODOS 

I ri ■=. TF £!' M T M r I == 




1030 PRINT #0;"PULSA 
ARA CONTINUAR" 

1035 PAUSE O 

1040 RETURN 

1100 BORDER Os PAPER 

LS 

1110 PRINT AT 7,0;" 
REALIZADO PO^-. ' " 

1120 PRINT PRINT 

AQUIN ARGON 
1130 PRINT PRINT 

ADO POR LA REVISTA 
1140 PRINT s PRINT 
ODOBPECTRUM 


UNA TECLA P 


Os INK 7s C 
PRDGRANA 
JO 

II 

Y PUBLIC 

II 

T 


1150 PRINT #0;" PULSA UN 
A TECLA PAUSE O: RETUR 
N 


1500 CLS : PRINT " La -formula qu 
e vamos a emplear para hallar la 
rason es:": PRINT PRINT ; FL 

VALENTE computación | 

MADRID BUENOS AIRES 

PmWRAHftS PARA j¡£ DEBPE a ,300 

¿UEQQfl : Match Polnt i th**» * 

Cartridga # Hipar DrJva ft 
Nl-ght Fllght # Bnaakmr f *tc. 

ÜIILlIAñlQi: liipflnl # HL Palnt t 
flr*ptllBL « TwlhU t WL DHtttr * 

t LI *p t Pppcal 1 Hon | lar # 

Porth » «PL * IdJlar t 

fl*n*riínf Aprltti I « 4 mrolD^ 

CÜtjeGGlflLEI í Mal nlatración 4 , 

F1 * Bo*a hccounkfr Managar t 
tor,tibí lidiad Q*naral # Archivar t 

Llf* fc lúaI na■a Orgknlaar * ate. 


iPtCTftun PLUS.. a 

COPIADOR -PHOÉKIX IM 1 . 

Branda* sportuní dada* pn prograaau y 
par if*ricoa da SFECTHUH y fe_. 
ENVIOS CONTRA HE5HBPLBD A TOPA E&frAÜA 

Santa Engracia. Ba * 445 32 85 
L 2B01Q MADRID / <g> iPLEfit* 


ASH 1; "r=t (a) "~t (b) / <a~b ) " ; FLASH 
0;" siendo:" 

1501 LET d-b: PRINT 's PRINT "t( 
a) y t(b) dos terminas conce i-do 
s de la progresión,": PRINT P 
RINT "a y b los lugares que esto 
s ocu-pan en ella." 

1502 PRINT PRINT " INTRODUCE 

EL LUGAR DEL PRIMER ";"TERMINO 
CONOCIDO Y LUEGO SU VA- ";"LÜR, 
Y SEGUIDAMENTE HAZ LO MISMO";"C 

ÜN EL OTRO TERMINO." 

1503 INPUT " DAME EL LUGAR Y EL 
VALOR DEL PRIMER TERMINO: "; b, 

tb 

1505 IF b<=0 THEN GO TO 1503 
1510 INPUT " HAZ LO MISMO CON E 
L SIGUIENTE TERMINO: (l ;a,ta 

1512 IF a<=0 THEN GO TO 1510 

1513 IF a=b AND ta<>tb THEN GO 
TO 1503 

1514 IF a=b AND ta=tb THEN LET 
1=0 

1515 IF d=2 THEN RETURN 

1516 LET z=ta~tb: LET w=a—b: LET 
l=2/w: CLS : PRINT PRINT " L 

a solución a tu problema es: 
PRINT PRINT 11 RAZON = "; 1 

1517 FOR q=1 TO b-1 

1518 LET tb=tb-l 

1519 NEXT q 
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1520 PRINT PRINT 11 El primer 
termino de la progre- síon es: 11 


H tb 

1521 PRINT PRINT " DAME EL NU 
MERO DE TERMINOS QUE TIENE LA P 
ROSEES IGN V TE DARE EL VALOR D 
E CADA UNO DE ELLOS. SI NO» MET 
E FLASH l5 M CERC)"; FLASH 0;". " 

1522 INPUT ;n 

1523 IF n s O THEN RUN 15 

1524 IF n<0 THEN GO TO 1522 

1525 CLS 

1526 PRINT PRINT " TERMINO 

VALOR PRINT AT 


1,0) OVER 1;" 


"? ÜVER O: LET abe 


=6: LET abd=26 


1527 FÜR q=1 TO n 

1530 IF q>=lO THEN LET abc=5: I 
F q>=i00 THEN LET abc=4: IF q>= 


1000 THEN LET abc=3; IF q>«iOOO 
O THEN LET abc=2 

1535 IF tb >=10 THEN LET abd=25: 
IF tb>=100 THEN LET abd=24: IF 
tb>=1000 THEN LET abd=23: IF t 
b>==10000 THEN LET abd~22: IF tb 
>=100000 THEN LET abd==21: IF tb 
>=1000000 THEN LET abd=20 

1538 F'RINT PRINT TAB abc;q;TA 
B abd;tb 

1539 LET tb=tb+l 

1540 NEXT q 

1543 PRINT #0;"PULSA UNA TECLA P 
ARA CONTINUAR" 

1545 PAUSE O 
1550 RUN 15 

1600 CLS : PRINT " La formula qu 
e vamos a emplear para hallar el 
termino descono- cido es:"; PRI 
NT PRINT ; FLASH 1j"t(a>=t<b) 


fe-tespectrun 


por 

MODULOS 


y 


MADRID 

( 91)7339662 


BARCELONA 
( 93 ) 3014700 
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+ (&—b)xr"; FLASH O;" si en da;' 1 

1601 LEI d=b: F'RINT PRINT "t ( 
a) el termino que queremos ha-11 
ar de la progresión.": PRINT 
PRINT ”t(b) el termino conocido» 

If 

1602 PRINT PRINT "a y b I os 1 
ugares que estos ele-mentos ocup 
an en la progresión.PRINT 
PRINT " INTRODUCE POR ESTE ORDEN 

PRINT PRINT " -EL LUGAR Q 
UE OCUPA EL TERMINO DESCONOCIDO. 

PRINT " -EL LUGAR QUE OCUPA E 
L TERMINO QUE CONOCEMOS.": PRINT 
" “EL VALOR DE ESTE." 

1603 INPUT "DAME ESTOS DATOS: 
a 

1604 IF a< =0 THEN GO TO 1603 

1605 INPUT "DAME ESTOS DATOS: "; 
b 

1606 IF b<—O THEN GO TO 1605 

1607 INPUT "DAME ESTOS DATOS: "; 
w 

1608 IF d=2 THEN RETURN 

1609 IF a=b THEN LET v=w: LET r 
=05 GO TO 1614 

1610 INPUT "DAME LA RAZON: ";r 

1611 IF (a<b AND r>0) OR (a>b AN 
D r< O) THEN GO SUB 9100: GO TO 
1603 

1612 LET 2=a-b: LET c=z*r: LET v 
=w+c 

1614 CLS : PRINT PRINT " El t 

ermino que esta en "¡¡a:" posi- c 
ion es: ";v , 

1615 FOR i ~1 TO a-1 

1616 LET v=v—r 

1617 NEXT f 

1618 PRINT ': PRINT " El primer 
termina de la progre-sion es: "; 
v 

1619 PRINT PRINT " DAME EL NU 
MERO DE TERMINOS QUE TIENE LA PR 
OGRES ION V TE DARE ELVALOR DE CA 
DA UNO DE ELLOS. SI NO, METE 

FLASH 1;"CERO"; FLASH O;"." 

1620 INPUT ;n 

1621 IF n=0 THEN RUN 15 

1622 IF n<O THEN GD TD 1616 


1623 CLS 

1624 PRINT PRINT " TERMIND 

VALOR ": PRINT AT 
1,0; DVER 1;" 

_ "í OVÍR Os LET abe 

=6: LET abd=26 

1625 FOR q=l TO n 

1626 IF q>=10 THEN LET abc=5: I 
F q>-100 THEN LET abe=4: IF q>= 
1000 THEN LET abc=3: IF q>-1000 
O THEN LET abc=2 

1627 IF v>=10 THEN LET abd=25: 
IF v>=100 THEN LET abd=24: IF v 
>=1000 THEN LET abd=23: IF v>=l 
0000 THEN LET abd=22: IF v>=100 
000 THEN LET abd=21s IF v>=1000 
000 THEN LET abd=20 

1629 PRINT PRINT TAB abc;q;TA 
B abd;v 

1630 LET v=v+r 
1633 NEXT q 

1635 PRINT #0;"PULSA UNA TECLA P 
ARA CONTINUAR" 

1640 PAUSE O 
1650 RUN 15 

1700 CLS : PRINT " La formula qu 
e vamos a utilizaren este caso, 
va a ser:": PRINT PRINT ; FLA 
SH 1;"n=2xS/(t(1)+ttn))"; FLASH 
O;" si endo:" 

17ul PRINT PRINT "n el numer 
o de términos.": PRINT PRINT 
"S la suma de todos los términos 
de la progresión.": PRINT PR 
INT "t<l) y t(n) los términos ex 
tre- mos y conocidos de la saces 
ion. " 

1702 PRINT PRINT 11 INTRODUCE: 
": PRINT ': PRINT "“EL EXTREMO I 
NFERIOR t (1).": PRINT "-EL EXTRE 
Mü SUPERIOR t Cn).“: PRINT "-LA S 
UMA DE TODOS LOS TERMINOS." 

1705 INPUT "t(l) ";t1 

1706 INPUT "t Cn> tn 

1707 INPUT "SUMA ";s 

1708 IF <tl=s OR tn=s> AND tlOt 
n THEN GO SUB 9100: GO TO 1702 

1709 IF s=0 AND ABS tlOABS tn T 
HEN GO SUB 9100; GO TO 1702 
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1710 IF s=0 THEN GO TO 9000 

1711 LEI s=2*s: LET x=tl+tn: IF 
=0 THEN 60 SUB 9100: GO TD 170 

1712 LET s=s/x: IF sOINT s THEN 
GO TO 1705 

1713 CLS : PRINT "El numero de e 
lamentos que tienetu progresión 
es: ";s;" y la progre-sion es:": 

PRINT PRINT " TERMINO 

VALOR ": ÜVER 1: PRIN 
T AT 4,0;“ 

": OVER 0 

1714 LET abc=6: LET abd=26 

1715 LET n=s-l: LET l=tl 

1720 FÜR f=l TO s 

1721 IF 4>=10 THEN LET abc=5: I 
F i >=100 THEN LET abe=4: IF f>= 
1000 THEN LET abc=3: IF f>=1000 
O THEN LET abc=2 

1723 IF ti>=10 THEN LET abd=25: 
IF ti>=100 THEN LET abd=24: IF 
ti>=1000 THEN LET abd*23: IF t 
1>=10000 THEN LET abd=22: IF ti 
>=100000 THEN LET abd=21: IF ti 
>=1000000 THEN LET abd=20 

1725 PRINT PRINT TAB abc;-f:TA 
B abd;ti 

1726 IF n=0 THEN GO TO 1730 

1727 LET tl=tl+(tn-l)/n 


1730 NEXT i 

1740 PRINT #0;"PULSA UNA TECLA P 
ARA CONTINUAR" 

1750 PAUSE O 
1760 RUN 15 

1800 CL5 : PRINT " La -formula po 
r la cual vamos a hallar la suma 

de todos los ter-minos de una p 
rogresion aritme— tica es:" 

1801 PRINT PRINT " S= 

(tl+tn) x n "s PRINT " 

2 m 

:: PLOT 90,128: DRAW 52,0 

1802 PRINT PRINT " ti es el 

primer termino de la progresión. 
": PRINT PRINT " tn es el u 
ltimo termino de la progresión." 
: PRINT ': PRINT " n es el nume 
ro de términos. 11 

1803 PRINT PRINT " INTRO 

DUCE LOS DATOS ": PRINT " 

POR ESTE ORDEN 

1804 INPUT "ti ";tl 

1805 INPUT "tn ";tn 

1806 INPUT "n ";x 

1807 IF x<=0 THEN GD TO 1806 
1810 LET h= (tl + tn)/2: LET s=h*x 

1813 LET 1=t1: LET k=tn-l: LET c 
= k/( x — 1 > 

1814 IF cOINT c THEN 60 SUB 91 
00: GO TO 1804 











PROGRAMAS 




INTRODUCE EL LUGAR DEL PRIMER 
TERMINO CONOCIDO Y LUEGO 5U UR- 
LÜR Y SEGUIDAMENTE HÑZ LO MISMO 
C O M E L OT R O T E R M I N Ü . 


1815 CLS : F'RINT 11 La suma de to 
dos los términos de la progresi 
on cuyo primer e- 1 emento es ";t 
1 ; " y ";tn;" es el ultimóles:"; 
PRINT s PRINT " 
s 

1820 PRINT 'í FRINT "y la progre 

sion es:": FRINT PRINT " TE 
RMINO VALOR " : OV 

ER i: PRINT AT 9,0;" 

": QVÍr""5~ 

1821 LET abd=26 
1825 FDR f = l TO 

1827 IF ti >-10 THEN LET abd=25: 
IF tl>=100 THEN LET abd=24: IF 
ti >=1000 THEN LET abd=23: IF t 
1>=10000 THEN LET abd=22s IF ti 
>=100000 THEN LET abd=2i: IF ti 
>=1000000 THEN LET abd=20 
1030 PRINT PRINT " t " ; f¡T 

AB abd;11 

1831 IF >: = 1 THEN GO TG 1840 

1834 LET tl=tl+c 

1835 NEXT f 

1840 PRINT #0;"PULSA UNA TECLA P 
ARA CONTINUAR" 

1850 PAUSE 0 
1860 RUN 13 

2000 PRINT AT 2,3;"LA PROGRESION 
ES DEL TIPO:": PRINT AT 4,3;"t( 
1) ,t(2) ,t (3) ,t Cn-1> ,t <n) "s PRINT 


AT 6,3;"si endo:" 

2001 PRINT AT 8,1:"t(2)=t(1)fcr": 
PRINT AT 11 ,1; "t<3)=t(2) xr t(3 

)=t(1> xr": PRINT AT 10,25;"(3-1) 

": PRINT AT 14,1;"........ . 

... PRINT AT 16,1 

;"t(n)=t(n-1)xr": PRINT AT 19,8; 

FLASH 1; "t <a>=t (b) xr " ; AT 1 

8,8;" (a--b) " 

2002 PRINT #0;" PULSA UNA TECLA 
PARA CONTINUAR " 

2003 PAUSE 0 

2004 GO SUB 20: GO SUB 2010: RET 
URN 

2010 PRINT AT 2,2;"LA SUMA DE TO 
DOS LOS TERMINOS";AT 3,2:"DE LA 
PROGRESION: "; AT 5,2; 1F t (1) ,t (2) .t 
<3>,t(n)";AT 7,2;"ES:"¡AT 

9,2;"S=t <l>+t(2)+.+t(n-l>+t 

<n ) 11 ; AT 11,2; "Y SUSTITUYENDO QUE 
DA: " 

2020 PRINT AT 13,10;"S=t<n)xr-t( 
D" : PRINT AT 14,16; "r-1" : PLOT 
96,63: DRAW 86,0 

2030 PRINT #0; "PULSA UNA TECLA P 
ARA CONTINUAR" 

2035 PAUSE O 
2040 RETURN 

2500 CLS : PRINT 11 La formula qu 
e vamos a útil izarva a ser:": PR 
INT AT 3,7;"a—b": PRINT AT 4,10; 
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"t (a) 11 : PRINT AT 5,10; "t ib) " 

2501 PLQT 62,140: DRAW 10,-10: D 
RAW 12,20: DRAW 26,0 


2502 PLOT 

81,135: 

DRAW 28,0 


2503 PLOT 

114,136; 

DRAW 5,0: 

PLO 

T 114,134: 

DRAW 5, 

0 


2504 PLOT 

123,133: 

DRAW 0,3: 

PLO 

T 124,137: 

DRAW 2, 

0 



2505 PRINT "siendo:" 

2510 GO SUB 1501 

2511 IF a=b THEN LET 1 = 1 

2512 IF aOb AND ta=tb THEN GG 
TD 2500 

2513 LET z=ta/tb: LET r=a~b: LET 
l=z--< 1/r) 

2514 CLS 

2516 FOR a=l TD b-1 

2517 LET th=tb/i 

2518 NEXT a 

2519 PRINT " La sol lic ion a la pr 
ogresion cu~yos datos me has dad 
o es: 11 : PRINT PRINT " RAZGN=‘‘ 
; 1 

2520 PRINT PRINT " El primer 
termino de la proqre-sion es: "; 
tb 

2521 PRINT 's PRINT " DAÑE EL NU 
MERO DE TERMINOS DE LA PROGRESI 
ÜN Y TE LA DARE CON™ FLETA. PARA 

EMPEZAR OTRA VEZ ME-TE "; FLASH 
1 $"CERO"; FLASH O;"." 

2522 INPUT n 

2523 IF n<0 THEN GG TG 2522 

2524 IF n=0 THEN RUN 15 

2530 CLS : PRINT " Tu progresión 

; 11 

2533 PRINT PRINT " TERMINO 

VALOR OVER 1: 

PRINT AT 2,3;"_" ; AT 2,24;" 

_: OVER 0: LET abc=6: LET a 

bd~26 

2534 FQR w=l TD n 

2536 IF w>= 10 THEN LET abc=5: I 
F w>—100 THEN LET abc=4: IF w>= 
1000 THEN LET abc*3: IF w>=1000 
0 THEN LET abc=2 

2537 IF tb >=10 THEN LET abd=25: 
IF tb >=100 THEN LET abd=24: IF 


tb >==1000 THEN 
b>=10000 THEN 
>=100000 THEN 
>=1000000 THEN 
2538 PRINT ': 

B abd;tb 


LET abd=23: IF t 
LET abd=22: IF tb 
LET abd=21: IF tb 
LET abd=20 
PRINT TAB abe;w;TA 


2539 LET tb=tb*I 


2540 NEXT w 


2550 PRINT #0;"PULSA UNA TECLA P 


ARA CONTINUAR." 

2560 PAUSE 0 
2570 RUN 15 

2600 CLS : PRINT " La formula me 


di ante la cual va--mos a hallar d 


i cha termina es:": PRINT ': PRIN 
T AT 3,19; " (a-b) ": PRINT AT 4,B; 
"t <a>=t<b)xr": PRINT AT 4,25; "si 
endo:" 

2601 GG SUB 1601 

2610 IF a=b THEN LET r-ls SO TO 
2630 

2611 INPUT "DAME LA RAZON: ";r 
2633 FDR f=l TÜ b-1 

2635 LET w=w/r 

2640 NEXT f 

2641 LET l=w 

2642 FQR f=1 TO a-1 
2644 LET w=w*r 
2646 NEXT f 

2650 CLS : PRINT " El termino qu 
e esta en ";a;“ posición es: ";w 
2660 PRINT PRINT " DAME EL NU 
MERO DE TERMINOS Y TEDARE LA PRO 
GRES ION COMPLETA. SI NO METE CER 
O. " 


2670 INPUT z 

2680 IF z<O THEN GG TO 2670 
26B5 IF THEN RUN 15 

2686 LET abc=6: LET abd=26 
2690 PRINT PRINT " TERMINO 
VALOR ": OVER 1: 
PRINT AT 7,0;" 


": OVER O 

2691 FOR f=l TO z 

2692 IF f >=10 THEN LET abc=5: I 
F f>=10G THEN LET abc=4: IF f>= 
1000 THEN LET abc=3: IF f>=1000 
O THEN LET abe=2 
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2693 IF 1>=1 THEN LET abd=26: I 
F 1>=10 THEN LET abd=25: IF 1>= 
100 THEN LET abd=24: IF 1>=1000 

THEN LET abd=23: IF I>=10000 T 
HEN LET abd=22: IF I>=100000 TH 
EN LET abd=21: IF 1>=1000000 TH 
EN LET abd-20 

2694 PRINT PRINT TAB abe ; -í ; TA 
B abd; 1 

2695 LET I=1*r 

2696 NEXT í 

2697 PRINT #0;"PULSA UNA TECLA p 
ARA CONTINUAR." 

2698 PAUSE O 

2699 RUN 15 

2700 CLS 

2701 PRINT " En esta ocasión vas 
a íntrodu- cir los datos como s 

igue:" 

2702 PRINT PRINT "“PRIMERO: I 
NTRODUCE EL LUGAR QUE OCUPA UN T 
ERMINC CUALQUIERA EN LA PROGRES 
ION Y LUEGO SU VALOR." 

2703 PRINT 's PRINT "-SEGUNDO: I 
NTRODUCE EL LUGAR QUE OCUPA CUAL 
QUIER OTRO TERMINO DE LA PROGRES 
ION Y SU VALOR." 

2704 PRINT PRINT "-TERCERO: I 

NTRODUCE LA SUMA DE TODOS LOS 
TERMINOS PERTENECI EN - TES A LA P 
ROBRES ION." 

2705 INPUT "DAME EL LUGAR Y EL V 
ALOR DE UNO DE LOS TERMINOS: ";a 
, ta 

2706 IF a<=Ü THEN GO TQ 2705 

2710 INPUT "DAME EL LUGAR Y EL V 
ALOR DE OTRODE LOS TERMINOS: ";b 
, tb 

2711 IF b<=0 THEN GO TD 2710 

2712 IF a=b AND taOtb THEN GO 
TO 2790 

2720 INFUT "DAME LA SUMA DE TODO 

S LOS TERMI-NQS DE LA PROGRESION 

■ ** ■ 

■ ¡i 13 

2721 LET 2=tb/ta: LET x=b-a 

2722 IF ta=tb THEN LET ;■; = ! 


2723 LET r=z '' (!/>:> 

2725 FOR d=1 TO a-1 

2726 LET ta=ta/r 

2730 NEXT d 

2731 LET f = 1 
2735 LET y=0 

2749 LET f*f+l 

2750 LET y=r*y+l 

2751 IF s=ta*y THEN Gü TD 2756 

2752 IF ABS s>ABS (ta*y> THEN G 
0 TO 2740 

2753 IF sOtaíy THEN GO TO 2790 

2755 GO TD 2740 

2756 CLS s PRINT " El primer ter 
mino de la progre-sian es: "¡¡ta; 
" ; y l a raz on¡ " ; r; " ." 

2757 PRINT ' 

2760 PRINT " El numero de termin 
os que tiene!a progresión es: "; 
■f-1;" y estos son:" 

2765 PRINT PRINT AT 7,3;"TERM 
INÜ";AT 7,25;"VALOR": QVER I: PR 
INT AT 7,3;"___"¡¡AT 7,25; 

II 

2770 FOR q=1 TO f-l 

2771 IF q>—l THEN LET abc=ó: IF 
q>=10 THEN LET abc=5: IF q>=10 

O THEN LET abe=4 

2772 IF ta>=1 THEN LET abd=27: 

IF ta>=10 THEN LET abd=26: IF t 
a>=100 THEN LET abd=25: IF ta>= 
1000 THEN LET abd=24: IF ta>=10 
000 THEN LET abd=23: IF ta>=100 
000 THEN LET abd=22 

2775 F’RINl P’RINT TAE* abc;q;TA 
B abd;ta 

2777 LET ta=ta*r 
2780 NEXT q 

2785 PRINT #0;"PULSA UNA TECLA P 
ARA CONTINUAR" 

2788 PAUSE O 

2789 RUN 15 

¿.79u CLS ; PRINT 11 Has íntroduci 
do mal algún dato. Repite la ope 
ración.": Gü TQ 2702 
2800 CLS 
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2801 PRINT 11 La formula mediante 
la cual va-mos a calcular la su 

ma de todos los términos de la p 
rogresion vaa ser¡" 

2802 PRINT PRINT "S=t(1)+tÍ2> 
+t(3) +...+t(n-1)+t(n)" 

2803 PRINT PRINT " De. donde, 

despejando, queda:": PRINT *: PR 
INT 11 2 n-1 

PRINT " S-t(l)x(1+r+r 
■+*.«. +r ) " 

2804 PRINT PRINT 11 DAME EL PR 
IMER TERMINO DE LA PROGRESION, 

LA RAZON Y DESPUES EL NUMERO D 
E TERMINOS." 

2805 INPUT “PRIMER TERMINO: ";ta 
2810 INPUT "RAZON; ";r 

2820 INPUT "NUMERO DE TERMINOS: 

11 ; n 

2823 IF n<=0 THEN GO TO 2820 

2825 LET y=0 

2830 FOR x = l TO n 

2835 LET y=r*y+I 

2840 NEXT x 

2345 LET s=ta*y 

2850 PRINT PRINT " La suma de 
todos los términos de dicha pr 
agresión es:: "¡;s;" y los termino 
s son: " 

2855 PRINT ': PRINT TAB 3;"TERMI 
NO";TAB 25;"VALOR"; OVER i: PRIN 
T AT 20,3;"_" ; AT 20,25;" 

2860 FOR x«l TO n 

2861 IF X >=1 THEN LET abc=6: IF 
x>=10 THEN LET abe=5: IF x >=10 

0 THEN LET abc=4 

2862 IF ta>*l THEN LET abd=27: 
IF ta>=10 THEN LET abd=26: IF t 
a>=100 THEN LET abd=25: IF ta>= 
1000 THEN LET abd=24: IF ta>=10 
000 THEN LET abd=23: IF ta>*100 
000 THEN LET abd=22 

2865 PRINT PRINT TAB abc;x;TA 
B ab d;t a 

2866 LET ta=ta*r 


2870 NEXT x 

2875 PRINT #0;"PULSA UNA TECLA P 
ARA CONTINUAR" 

2880 PAUSE O 
2885 RUN 15 

9000 CLS : PRINT ** La solución c 
on ese dato es in-determinada. L 
o mismo puede ha- ber n, que n-1 
, que n—2, que n+nelementos en 1 
a progresión.": INVERSE 1: PRINT 

'! PRINT " EJEMPLO: 

Id 

9001 PRINT INVERSE Os PRINT " 

PROGRESION 1 PROGRESION 2 

PRINT PRINT "TERMINO VALO 
R TERMINO VALOR": PRINT AT 9 
,0; OVER !;«_ 


9002 FOR p=l TO 3 

9003 PRINT PRINT TAB l;"t";p 

9004 NEXT p 

9005 LET k=1 

9006 FOR p = l TO 5 

9007 PRINT AT 10+k,19;"t";p: LET 

k«k+2 

9008 NEXT p 

9009 PRINT AT ll,9;tl;AT U,27;t 

9010 PRINT AT 13,9;"0": LET k-tl 
/2: PRINT AT 13,27;k 

9011 PRINT AT 15,9;tn: PRINT AT 
13,27;"0" 

9012 PRINT AT Í7,27;~ks PRINT AT 
19,27;tn 

9040 PRINT #0;" PULSA UNA TECLA 
PARA CONTINUAR " 

9050 PAUSE O 
9060 RUN 15 

9100 CLS : PRINT " Has introduci 
do mal los datos. No es posible 
ninguna progresionaritmetica con 
ellos.": PRINT PRINT FLAS 

H 1;" REPITE LA OPERACION 

RETURN 





















PROTECCION DE 
FICHEROS 


Poseo un Spectrum Plus con 
dos unidades de microdrive y ten¬ 
go confeccionado un programa de 
ficheros para dichas unidades. El 
programa, en BASIC, consiste en 
la creación de un índice para todos 
los artículos de revistas y‘libros 
que poseo, nía nejando a un mismo 
tiempo varias variables de cadena 
(revista, número, página, conteni¬ 
do, etc.) e incluyendo opciones de 
creación, lectura, ampliación y bo¬ 
rrado de ficheros, así como catálo¬ 
go de los mismos. En el número 8 
de su revista apareció un programa 
con el título «Una clave, please»; 
el cual he querido incorporar al 
programa confeccionado por mí 
sin poder lograr mi objetivo. 

¿Cómo podría incorporar el 
programa «Una clave, piease» pa¬ 
ra proteger el acceso a mi progra¬ 
ma o para no poder leer los datos 
escritos en el fichero sin introducir 
la clave preestablecida?; lo he in¬ 
tentado varias veces según las ins¬ 
trucciones aparecidas y no lo con¬ 
sigo, pues no comprendo del lodo 
los apartados (del 1 al 9) que vds. 
editan ni tas imputaciones (Kam- 
top y direcciones) que solicita di¬ 
cho programa. ¿Cómo podría ac¬ 
tualizar los ficheros empleando las 
dos unidades de microdrive y utili¬ 
zando la sentencia MOVE?; pien¬ 
so que este método puede ser más 
rápido y eficaz que el adoptado por 
mí. 

Fernando Clavijo 
Málaga 


Dirige tus cartas a; 
Todospectrum 
Bravo Murillo, 377, 5 
28020 Madrid 


BASIC DESDE CODIGO 
MAQUINA, PASANDO 
POR RELS 


normalmente MAIN 4, termina 
saltando al editor BASIC. Yo he 
solucionado el problema elimi¬ 
nando las linas 41) y 50, y susti¬ 
tuyéndolas simplemente por un 
RET. 

Espero efectuéis la correspon¬ 
diente corrección en Todospec¬ 
trum. Sólo me queda saludaros y 
desearos prosperidad en esta 
vuestra revista. 

Angel Olivar! 

Reus (Tarragona) 

Gracias por los cumplidos. El 
problema que has detectado se 
debe a que el autor del programa 
incluyó en el listado unas líneas 
de demostración para que pudie¬ 
ra ser llamado directamente des¬ 
de el BASIC sin problemas, [hie¬ 
de ser perfectamente utilizado 
para nuestros propios fines usan¬ 
do exclusivamente las líneas 60 - 
300. es decir, la rutina «CODI¬ 
GO». Eso si, antes de llamar esta 
rutina hay que cargar en HL la di¬ 
rección de inicio de la tabla don¬ 
de se encuentre el texto BASIC 
almacenado, con un 13(ENTER) 
al final. Por esto, sí la llamáramos 
directamente desde el BASIC, 
daría problemas al tener HL un 
valor no predecible. 


Ante todo felicitaros por la re¬ 
vista, de la que cada vez estoy más 
contento, y en particular por los 
últimos números, que me parece 
que han cambiado y para bien; pe¬ 
ro bueno, esto os lo deben decir to- 


Iré al grano, lie realizado el pro¬ 
grama titulado «BASIC DESDE 
EL CODIGO MAQUINA» que 
creo que es muy interesante, ya 
que hay ciertas operaciones que 
desde este último son muy engo¬ 
rrosas. El programa funciona bien 
sólo en parte, de pronto se detiene 
con el mensaje «Program finís- 
hed». Creo que el motivo es el 
RST 8, Si analizamos el programa 
vemos que empieza con el registro 
HL apuntando a la dirección del 
texto y luego hace una llamada a la 
subrulina llamada «CODIGO» 
que es ta que se encarga de reali¬ 
zar el trabajo, y cuando estadios de 
vuelta se realiza el RST 8. Esta es 
la rutina de erroT del ZX, que des¬ 
pués de ejecutar sus instrucciones 
retorna a la dirección señalada in¬ 
directamente por (ERR SP), 


Sí realmente quieres proteger 
tu programa de la curiosidad 
de la gente, de poco te valdrá la 
rutina a la que haces referencia, 
pues, aunque es evidente que 
una vez se esté ejecutando impe¬ 
dirá el continuar a quien no co¬ 
nozca la clave correspondiente, 
no es menos cierto que resultará 
totalmente inútil desde el mo¬ 
mento en que alguien rompa 
la ejecución del cargador antes 
de que se salte a esta rutina, con 

















lo que, tras suprimir la llamada 
correspondiente, el supuesto pi¬ 
rata tendría vía libre para acceder 
a tus ficheros. 

Existen, sin embargo, determi¬ 
nados métodos, bastante clásicos 
por otra parte, que impedirán el 
acceso a tus programas a quien 
no tenga ciertos conocimientos 
de código máquina ni sepa la 
contraseña BASIC en forma de 
bytes, incluidas las variables del 
sistema, de modo que tras cargar¬ 
lo comience las ejecución en de¬ 
terminada línea del programa 
(sin que pueda evitarse con 
MERGE la auInejecución), don¬ 
de pueda pedirse la contraseña al 
amparo de determinada protec¬ 
ción anti-BREAK. 

Para usar este sistema con tu 
programa deberás hacer NEW, 
cargar el programa, insertar en él 
las siguientes líneas 9500-9550 y 
salvarlo a cinta con GOTO 9500. 
Cuando sea cargado (con LOAD 
“”CODE) se autoejecutará en la 
línea 9520, pidiéndonos la clave 
(en el ejemplo «Patatita») y ha¬ 
ciendo RUN sólo en el caso de 
que la clave sea la correcta. 

9500 POKE 23613,0 

9510 S A V E “n o m b re ” CO DE 
23613,PEER 23641+256*PEER 
23642-23613 

9520 1F A$<>“ Patatita” 

TIIEN STOP 

9540 POKE 23613,84 

9550 RUN 

En cuanto al uso que preten¬ 
des dar a MOVE para la actuali¬ 
zación de tus ficheros, no nos ha 
quedado muy clara tu pregunta. 
En cualquier caso, te podemos 
decir que la sintaxis de esta ins¬ 
trucción es MOVE «a TO jfb, 
donde “a” y “b” son los números 
de las dos corrientes entre las 
que va a efectuarse la operación. 
Lo que hace es leer un carácter 
de “a” e imprimirlo en “b”, repi¬ 
tiendo esta operación hasta que 
se cumpla una determinada con¬ 
dición (p.e. fin de fichero) que 
depende del tipo de canal a que 
esté asociada la corriente “a”. 


ERROR EN EL QL ESPAÑOL 


Existe una clara errata en el 
firmware del QL (mejor dicho, só¬ 
lo en el modelo español), precisa¬ 
mente en la instrucción POINT. 
Esta instrucción debería iluminar 
un solo punto en la pantalla gráfi¬ 
ca, pero en lugar de esto ilumina 
dos puntos en diagonal. ¿Existe 
algún método para evitar esto?, si 
es así, ¿podrían facilitármelo? 

¿Hay algún algoritmo o método 
para simularen el QE una instruc¬ 
ción semejante a la instrucción 
POINT del ZX Spcclnim o la ins¬ 
trucción TEST del Amstrad. que 
informa si un punto está iluminado 
o el color que posee éste respecti¬ 
vamente? 

He elaborado una serie de pro¬ 
gramas para el QL que me intere¬ 
saría mandaros. Mi pregunta es: 
¿es necesario que os los mande 
grabados en microdrives, u os has¬ 
ta con un listado de los mismos?, lo 
pregunto por que los cartuchos no 
son precisamente muy baratos. 

Sin más que darles las gracias 
por su atención se despide: 

Juan I. Rodríguez 
Castilleja de la Cuesta 
(Sevilla) 

En cuanto a la instrucción 
POINT y al hipotético TEST, lo 
mejor será que te construyas un 
par de rutinas para arreglar la pri¬ 
mera y hacer realidad la segunda. 
Aunque lo ideal sería usar código 
máquina para ello, también pue¬ 
des hacerlo desde el BASIC me¬ 
diante PEEKs y POKEs. Por ello 
pasamos a explicarte la forma en 
que están «mapeadas» las panta¬ 
llas en la memoria del QL en sus 
dos modos gráficos. 

El QL utiliza para almacenar la 
pantalla en memoria nada menos 
que 32 ks, entre las direcciones 
131072 y 163839 (20000 y 27FFF 
hexadecimal) en ambos modos 
de presentación. Los puntos que¬ 
dan distribuidos de izquierda a 
derecha y de arriba a abajo como 
sigue: 

En el modo de alta resolución 
a cada ocho puntos le correspon¬ 


den dos bytes de memoria (a los 
ocho primeros puntos les corres¬ 
ponden, pues, las direcciones 
131072 y 130173), distribuidos a 
su vez de la siguiente forma: a ca¬ 
da punto le corresponde un bit de 
cada uno de los dos bytes, de for¬ 
ma que al primer punto le corres¬ 
ponde el bit 7 de la dirección 
130172 y también el bit 7 de la 
130173, al segundo punto el bit 6 
de las mismas direcciones, hasta 
llegar al puntó noveno, al que le 
corresponderán el bit 7 de las di¬ 
recciones 130174-5, y así sucesi¬ 
vamente. Los bits de las direccio¬ 
nes pares indican sí está activado 
el color verde, mientras que los 
impares indican si lo está el rojo. 
Si lo están ambos, el color que 
aparece es el blanco, mientras 
que si los dos están desactivados 
(valen cero) el color resultante 
(en realidad, la ausencia de co¬ 
lor) es el negro. 

En el modo de baja resolución 
(ochó colores) el sistema es muy 
parecido, pero a cada dos bytes 
sólo le corresponden cuatro pun¬ 
tos. En este caso, a cada punto se 
le asignan cuatro bits, dos de ca¬ 
da byte de los que le toquen. Así 
al primer punto le corresponde¬ 
rán los bits 7 y 6 de la dirección 
139172 y también e! 7 y el ó de 
130173, al segundo punto los bits 
5 y 4 de las direcciones 130174-5, 
etc., etc. En este caso podemos 
formar, con el bit de la izquierda 
de los dos correspondientes a la 
dirección par y los dos de la im¬ 
par, un número binario que nos 
indicará ei color utilizado (0=ne- 
gro. l=azul, 2=rojo... 7=blanco), 
mientras que el bit restante indi¬ 
ca si está o no activado el parpa¬ 
deo o tlash. 

Aunque, como tú dices, los 
cartuchos no son muy baratos, 
tampoco puede decirse que sean 
excesivamente caros; puedes uti¬ 
lizar uño ya usado, si tus progra¬ 
mas en verdad valen la pena se¬ 
rás generosamente recompensa¬ 
do. 

























Intercambio o vendo software 
para Spectrum 48 K. Amplia lis¬ 
ta con las últimas novedades. 
Poseo copión turbo. Interesado 
en conseguir el compilador 
«The Colt» con instrucciones. 
Escribir a: Bernardo Pou 
Fernández. Avda. Manuel del 
Palacio, 5, 4.° C. Te!.: (968) 
85 67 99. 36003 Pontevedra. 

Por cambio de ordenador ven¬ 
do: colección completa de re¬ 
vistas, cintas con programas co¬ 
merciales, libros, magnetofón 
Gold King, así como disco más 
interface para el Sinclair Spec¬ 
trum. Envío relación. Tel.: 
(958) 27 24 93. Preguntar por 
lose. 


Deseo contactar con usuarios 
del QL para intercambio de 
artículos de prensa, noticias o 
ideas, así como programas. 
Juan R. García Martell. Dr. 
Juan de Padilla, 42. Tel.: (928) 
31 20 90/36 60 04 (tardes). 35002 
Las Palmas de Gran Canaria. 

Estoy interesado en entrar en 
contacto con usuarios de ZX- 
Spectrum. Escribir a Mario 
Sáenz de Santamaría. Río 
Ebro, 27, 1. a C. Miranda de 
Ebro (Burgos). 

Intercambio programas de to¬ 
do tipo para Spectrum o Alus¬ 
trad. A. J. Rodríguez Salas. 
Nervión, 8, l.° B. 18015 Grana¬ 
da. 


Vendo procesador de textos 
especial para la GP-50-S o com¬ 
patibles. Permite la impresión 
de textos en 64 columnas sin re¬ 
ducción de caracteres ni modi¬ 
ficaciones en el hardware. Ma¬ 
nuel Cagiao. Apartado 2144. 
15080 La Coruña. Tel.: (981) 
78 29 52 (20 h.). 


Vendo/cambio programas úl¬ 
timo grito para Spectrum y tam¬ 
bién ordenador ZX-Spectrum 
Plus a estrenar, con todos los 
accesorios. Sin usar y con ga¬ 
rantía por seis meses. 30.000 
pías. Iglesias, Troitosende, No- 
vegilde, Santiago de Compos- 
tela (La Coruña). 











Todo el Software disponible en el 
mercado reunido en un catálogo 
de 800 fichas 


1,° ENTREGA 
550 FICHAS 
+ FICHERO 


Resto en dos entregas 
trimestrales de 1 50 fichas 
cada una 


PRECIO TOTAL DE LA SUSCRIPCION 8.000 PTAS. 


COPIE 0 RECORTE ESTE CUPON DE PEDIDO 


V 


CUPON DE PEDIDO 


■ El importe lo abonaré POR CHEQUE □ CONTRA REEMBOLSO □ CON MI 
l TARJETA DE CREDITO □ 

SOLICITE HOY MISMO EL 1 

CATALOGO DE SOFTWARE A' | Car 9 ue 8 000 pías. 3 mi tarjeta American Express □ Visa □ Interbank □ 

- r ... . | Número de mi tarjeta I I I I I I I I I I I I I I I I I I I 

mis , s.a. i nombre - 

a r ai i f 

Bravo Murillo, 377, 5. n A 1 -~ 

28020 MADRID I CIUDAD-C. P. 


O EN CONCESIONARIOS IBM 


I PROVINCIA 


TELEFONO 


reí; CATALOGO DE SOFTWARE 


CS-2 









































AA Audaz. Segura. Una auténtica "trail". Ligera como una ga- 
I “ XII cela. Fuerte como el león. Para dominar tanto a la jungla 
10 I W urbana, como a las dunas de Dakar. Su línea sabe de aven- 
turas, de horizontes abiertos. Siente en tu rostro el azote de! viento de la libertad. 
Descubre sus prestaciones. Y no pongas límites a tu independencia. 

MOTUi 

HlMnOl 



YAMAHA VA POR DELANTE 


INTERACCION 
















